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TABLES 



r»lC"~Af... ECSUIOMETK 1 ''" CC : ' ir ^- 



Job Statistics Buffer Conditionally Assembled 



At Location 234 g (156.) is a three-word table of pointers 

DSTATB Disk statistics buffer 

JSTATB Job sl-.atist.ics buffer 

■Q5TATB Queue statistics buffcr 

At each clock tick, the system checks the switch register 

for the proper action: 
Contents 

177777 Collect statistics 
Ixxxxx Freeze statistics 
Oxxxxx Clear statistics 

The job statistics area contains" the following entries: 
" Entry si ze U s age 

1 word dumber of ticks per .second 

2 Uptime 

1 ' Smallest number of free small buffers 

2 Level 3 accounted 
2 Lost time 

2 Level 3 unaccounted 

2 Null job time 

2 Fip needed 

2 In system mode 

2 Fip waiting 
2 for code 

2 for disk info rma t i on 

2 for disk suoLvcje aljocation 

2 for some I h i nq el s o 

12 Ope two -word entry for each processor prio 

2 Number of lockouts 

1 dumber ci" KW11P clock overruns 



H 



UNTCNT: 



O PUN IT- 



OKUNIT: 



Pack status 

& M OPEN" 
Count for 
FUN0 



Pack status 
&"OPEN"count 
for FUNl 



DPUNIT: 



Pack status 
& rt OPEN" count 
for FUN2 




Pack Status 
&"OPEN"count 



for FUN 



H=r-L 



"Tack Status 
fi^'OPEN" count 
for FUN n 




UNTCLU: 
E r r o r "" Cou n ™ sf 
Paci; Cluster-j 
size for FUN0 



Error Counts 
Pack Cluster-j 
size for FUNl 



Error counts ! 
pack cluster-f 
size for FUNl: 



Etc. 



Error Counts 

Pack Cluster-- 

size for FUN 
< 

Etc. 



Etc. 



bnig X.£i\ 

T£ioHmum~vliLTue 
of SAT ptr 
for FUN0 



Maximum valu£ 
of SAT ptr 
for FUNl 



Maximum value 
of SAT ptr 
for FUN2 



Error Counts 
Pack Cluster- 
size for FUN 



Error Counts 
Pack Clustery- 
size for FUN 



n 



Etc, 



Etc. 



Maximum value 
of SAT ptr 
for FUN 



Etc. 



q 



Etc. 



Maximum value 

of SAT ptr 

for FUN 

Maximum value 

of SAT ptr 

for FUN 
n 



High Byte: 
disk error 
count 
Low Byte: 
Pack Cluster- 



SATCTL+SATCTM 
of free 
sectors on 
FUN0 



SAI.;TL: 



# of free 
sectors on 
FUNl 



# of free 
sectors on 
FUN2 



Etc. 



Etc. 
# of free 
sectors on 
FUN 



q 
e€c. 



Etc. 



# of free 
sectors on 
FUN „ , 

# of free 
sectors on 
FUN 



(When SAT ptr 
reaches its 
maximum value, 

it is reset 
to zero.) 



FTrsH sector^**" Current logicajl 



referenced 
SAT-FUK>/ 



First sector 
#referenced 
by SAT- FUNl 



First sector 
#re^erenced 
by SAT-FUN2 



Etc. 



Etc." 



BHrst sector 
#referenced 
by SAT- FUN 
Etc. S 



. ;Xj %m \*> « 



First sector 

#referenced 

by SAT-FUN , 
. n— 1 
First sector 

#referenced 

by SAT-FUN 

■* n 



SAT ptr-FUN0 



Current logiqal 
SAT ptr-FUNl 



Current 

logical SAT 
ptr-FUN2 



Etc. 



Etc. 



Current logicjal 
SAT ptr-FUN 



Etc. 



Etc. 



Current 
logical SAT 
ptr-FUN n _ 1 
Current 
logical SAT 
ptr-FUN 



n 



Logical SAT 
ptrs begin 
at and 
are altered 
dynamically. 



rhe proper entry in these tables is indexed by 2*FUN, 



DEVNAM 



DEVCNT: 



DEVPTR: 



d 



If 


DF 


II 


DK 


•1 


DP 


II 


KB 


II 


DT 


II 


LP 


II 


PR 


If 


PP 


It 


CR 


II 


MT 




XX 








v 


+ 1 


0^1 


0^16 


0-*7 


0^1 











0+1 


11 



DPUNIT 
UNICNT 


(in 
Tbl) 


DKUNIT 
UNTCNT 


(in 
Tbl) 


DPUNIT 
UNTCNT 


(in 
Tbl) 


TTYDEV 
DEVTBL 


(in 
Tbl) 


DTADEV 
DEVTBE 


(in 
Tbl) 


LPTDEV 
DEVTBE 


(in 
Tbl) 


PTRDEV 
DEVTBE 


Un 
Tbl) 


PTPDEV 
DEVTBE 


(in 
Tbl) 


CDRDEV 
DEVTBE 


{in 
Tbl) 


MTADEV 
DEVTBE 


(in 
Tbl) 


xxxDEV 



SERTBL: 



FILSER 



TTYSER 



DTASER 



LPTSER 



PTRSER 



PTPSER 



CDRSER 



MTASER 



xxxSER 



SIZTBL 



512 10 


128 10 


510 io 


128 10 


128 io 


128 io 


82 io 


512 10 


n 

. _,_ J 



2 byte 
ASCII 
names 
of all 
devices 



Maximum unit 
# for each 
device (if 
entry is -1, 
then that 
device does 
not exist. ) 



Pointers to 
slots in 
UNTCNT or 
DEVTBL appro- 
priate to 
each device 



addresses of 
service rou- 
tines used by 
USERIO for 
read/write 
requests 



L S O 

C W I u 

K p NT 

UL Li 



CORTBL: 



. ,1! 

«.- -14- 



i 

xX 



I I: ( 



Job# X2 



Job# X2 



Job# X2 



Job# X2 



1 I if" I I 
U4iJ JJ 4- 

rnnuM- - - 

'!; ii 

i M UiiL 

ETC. 



for first IK words of core 
for 2nd IK words of core 
for 3rd IK words of core 
for 4th IK words of core 



h- 



Job# X2 



for nth IK words of cere 



end of CORTBL indicator 



LCK = This entry to be locked in core 

SWP = This entry to be swapped as soon as possible 

IN = Swap direction = IN 

OUT ■= Swap direction - OUT 



f 



LEVEL 3 QUEUE TABLE 



MODULE 


entries are defined with the macro 


"L3QENT" 


L3QTBL 
+0 


FIP 


FIPRET-file processor return 


+2 


MON 


SWPRET-swap completions 


+4 


DSK 


FILRET-I/O completed 


+6 


DTA 


DTSYM-reads or writes a block of DECtape for FIP 


+10 


DTA 


BUFQ-big buffer pool starter 


+12 


DSK 


BUFSMQ-small buffer pool starter 


+14 


DTA 


DTQCON-dispatches to appropriate driver completion 
address, unqueues next driver request 


+16 


DTA 


DTWCON-return after block allocate 


+20 


CDR 


CDRL3Q-card reader service 


+22 


MTA 


MTACON-process a request 


+24 


MTA 


MTADNE-process finished request 


+26 


MON 


BRINGQ- bring a job into core 


+30 


MON 


SCHED- scheduler 


+32 


MON 


FORCEQ- force a job to dump himself 


+34 


MON 


TIMERS-once a second timer service 




+36 



l-.< 



EMTS (added to 104 000) 



Identifier Value 



EMTTBL: 



CALFIP 

.READ 

.WRITE 

.CORE 

. SLEEP 

.PEEK 

.SPEC 

. TTAPE 

.TTECH 

.TTNCH 

.TTDDT 

.TTRST 

.TIME 

.POSTN 

.DATE 

.PRIOR 

.STAT 

.RUN 

.NAME 

.EXIT 

.RTS 

.ERLOG 

.LOGA 







2 — 

4 — 
6 — 
11? - 
12 — 
14 — 
16 — 
20 — 



22- 

24 
26 
30 
32- 

34- 
36 

40 
42 
44 
46 
50 
52 
54 



+ 2 



*4 



-> 6 



-*H 



^ J. £. 



->14 



->16 
■>20 



FIPEMT FIP entry point for user 



USERIO: I/O interface for direct 



USERIO access READ/WRITE 



CORE. Expand/ shrink the job 



SLEEP. Sleep job for n seconds 



PEEK. Peek at an address for user 



SPEC. Special functions 



TTAPE. Enable tape mode 



-> 22 



->24 



TTECH. Enable echo/disable tape 
mode 



TTNCH. Disable echo 



TTDDT. Enable DDT submode 



-> 26 



-> 30 

■* 32 

-y 34 



-> 36 



■>4 



->42 



->44 



^ it c 

■)tu 



->-50 

->52 

->5* 



TTRST. Restore programmed output 



TIME. Give job timing info. 



POSTN. Get current position on line 



DATE. Geit date infor. for job 



PRIOR. Set/clear special run 

priority 



STAT. Get jobs current statistics 



RUN. Run job (via channel #15) 



NAME. Put names of job in NAMTBL 



EXIT. Return to default RTS 



RTS. Change RTS to named RTS 



ERLOG. Log the error called 



LOGS. Check for logical errors 






FIPTBL - ADDR TO ROUTINES 

Possible values for FQFUN (high order bute of word 2 in FIRQB) 



+ 


CLOSE - 


■ close an open channel 


+ 2 


OPEN - 


open a channel 


+4 


CREATE 


- create/ extend/open a channel 


+ 6 


DELNAM 


- delete a file by name 


+10 


RENAME 


- rename a file 


+ 12 


DIRECT 


- directory information 


+14 


UUOF - 


process UUO 


+ 16 


ERRFIL 


- get error message text 


+2 


RESET - 


■ reset (close) all channels except 


+ 22 


LOOKUP 


- file lookup 


+ 24 


ASSIGN 


- assign a device 


+ 26 


DEAS00 


- deassign a device 


+ 30 


DEALL - 


• deassign all devices 


+ 32 


CRTMP - 


■ create a .TMP file 


+ 34 


CRE8B0 


- create an image file 


7% 

+ 36 


WINDOW 


- window turner for disk files 


+40 


EXTCRE 


- extend a closed disk file 


+ 42 


OPENCR 


- open a newly created/extended file 


+ 44 


LOGIN - 


• login a user 


+ 46 


PASSWD 


- create user account 


+ 50 


DLUF - 


delete user account 


+ 52 


RADF - 


read or read/reset accounting data 


+ 54 


CHUF - 


change password/kill job 


+ 56 


CLEAN - 


■ clean up a disk pack 


+ 60 


ZUSF - 


zero things 


+ 62 


ATTF - 


attach to a detached job 


+ 64 


DETF - 


detach from a terminal 


+ 66 


MOUNT - 


■ mount /dismount/ lock/unlock disks 


+ 70 


MTAOPN 


-■ magtape opener 


+ 72 


MTACLS 


- magtape closer 


+ 74 


MTAUTL 


- magtape utility 


+ 76 


DTALOC 


- dectape allocator 


+100 


DTSERR 


- dectape error processor 


+102 


DTLIST 


- dectape directory information 


+104 


DTKILL 


- dectape file deleter 


+106- 


RUNJOB 


- run some program for a user 


+110 


DTNAME 


- dectape renamer 


+112 


DTRF - 


dectape directory reader 


+ 114 


DETCLOS - dectape closer 


+ 116 


DTOPEN 


- dectape opener 


+ 120 


DTZERO 


- dectape zeroer 


+ 122 


BACKUP 


- change file date/time for backup 


+ 124 


HANGUP 


- hangup a dataset 



OPN 
OPN 
ORN 
DLN 
OPN 
DIR 
UUO 
OPN 
OPN 
OPN 
ZER 
ZER 
OPN 
OPN 
OPN 

WIN 

EXT 

OPN 

LIN 

ZER 

DLN 

DIR 

DLN 

DLN 

DLN 

LIN 

DIR 

OVRUTL 

MTU 

MTU 

MTU 

DTU 

DTU 

DTU 

DTU 

OPN 

DTU 

DTU 

DTU 

DTU 

DTU 

UUO 

UUO 



* Functions above this line are the only functions the run- 
time system may issue. 



J~7 



+ 126 
+ 130 
+ 132 
+ 134 
+ 136 
+ 140 
+ 142 
+ 144 
+ 146 
+ 150 
+ 152 
fc 154 



FILES - file statistics 
CREAT2 - 2nd part of file creator 
DTCNTG - dectape contig. file creator 
PRIORT - set priority, etc, for job 

OPENDV - open devices in general 
YESLOG - enable further logins 
TERMIN - set terminal characteristics 
MTAZER - magtape zero function 
MTALST - magtape catalog runction 
EXTEND - extend an open disk file 
LOGOUT - logout a user 



UUO 
UUO 
DTN 
ZER 

UUO 
OPN 
LIN 
TRM 
MTU 
MTU 
EXT 
OPN 
ZER 



Module names containing various runctions are men 
the right. 



on 



/ - 5 



BLOCKS 



DIGITAL EQUIPMENT CORPORATION 



JOB DATA BLOCK 



JDIOB - pointer to IOB 
JDFLG -job status flags 
JD Post 



JDRESB - L3QUE bits to set on residency 



- post toRTS 



IOST -10 status 



JDWORK - pointer to 30b work block 



JDRTS - pointer to RTS block 



JDUFDR - RIB entry of UFD for user 



JDKCTM - MSB of KCT used. 

JDSIZ0 - Size now 



JDCPU -" CPU in Terigths of sec 



JDFL G2 - m onit or jo bflg 
£~ JDSIZ1 - Size next 



JDCON - Connect time in min 



JDKCT - KCT used 



JDDEV - Device time in min 



JDPPN - Jobs PPN _"__ 

JDCORM - j obs core" "max 
JDBRST - jobs burst 



JDPRI - jo bs priorit y 



JDSWAP - jobs swap param 




2 
4 
6 

10 
12 
14 
16 
20 
22 
24 
26 
30 
32 
34 
36 



BITS In JDSWAP 
0-3 Bit in Bit Map Word 
5-4 Selects 1 of 4 map words 
7-6 Selects Map Word 



oZ" 



RUN-TIME SYSTEM DESCRIPTION BLOCK 



R. LINK 


Link to More Descriptions 




1? 


R. NAME 


2 wd Rad 50 name of pure code 




2 




4 


R.CNT 


Count of active users 


— _ 


6 


R.USIZ 


Max size in K for user 


10 


R.MSIZ 


Min size in K for user 




12 


R.DISK 


CILUS Disk Block # 


-— - -— 


14 




ajGW GxwSX ZSciju, lueiaGjry aCiuiTcoo 




R.BACK 


Pointer to NB of RTS 


^0 


R.BYTE : 


Byte Count of Image 




21 


R.XMEM 


Hiorder real memory address 




22 


R.ISIZ 


Initial size ink for user 


24 


R.RDSK 


Double word RSTS Disk 


26 




Address 


3C 


R.CPTR 


PTR to last '-.v-i-fcs -jli.1^ ur.'.^y ■ 




■^ 


R.1KCT 


Size of RTS in K 


— — — 


34 


, R.REDO 


Full 4I\ ''tswcr if'c — J-.* '£'<\ •„ L', ,', v. 


3fi 



FIRQB 



FQQQ 


Queue in link set by FIP 


rt 


FQJOB 
FQFUN 


Issuing Job #X2 \ 
Function requested 


2 

3 


FQFIL 

or- 
FQERNO 


Channel Slot in IOB of issuing job 
Error message code and text start 


4 


FQPPN 

or 
FQCOM3 


Project/programmer no. 

Internal data j 


6 


FQNAM1 


2 word file name 
in RADIX50 


10 


FQEXT 


Extension in RADIX50 


14 


FQSIZ 
FQCOM2 


No sectors in file or sectors to extend 
Internal return addr (DECtape) 


16 


FQNAM2 

cr 
FQSWIT 

c r* 

FQBUFL 


3 word new file name EXT in RADIX50 
Open for output switch 
Default buffer length 


20 


FQMODE 


Mode Indicator 


22 


FQFLAG 


File's flag 


24 


FQCOMl 
FQPROT 


Internal Return (DECtape) 

New protection code (-1 if passed) 


26 
27 


FQDEV 


2 byte ASCII device name 


30 


FQDEVN 


1 byte unit number 


32 


FQCLUS 

tv 
FQCOM 


File cluster size for file creation 
DDB link addr (DECtape) 


34 


FQFUN1 
FQFUN2 


Chaining function FQNENT no of directory 36 
entries 

3 7 

Internal extra function ' 



File request queue block (FIRQB) (pronounced "Furk-be") 

All requests for file processing are made by setting the neces- 
sary parameters in the FIRQB, and calling the Monitor with 
"tALFIP". 

Only relevant parameters need be supplied. When FIP exits, the 
returned values come back in the FIRQB along with an error code 

FIRQB entries include .the following: 

Multiple antries ar« for differant FIP funotiom 



^-J 



File Request Queue; Jlork FTPQU - Used by FIP 



-'ymbol 


Off sot 




"QQQ 







•QJOB 


2 byte 




\)FUN 


3 byte 




FQF1L 


4 




FQPPN 


6 






10 




FQEXT 


14 




FQSTZ 


16 




FQSWIT 


.. 20 




FQMODE 


22 




FQFLAG 


24 




FQCOM1 


26 




FQDEV 


->G 




FQDEVN 


32 byte 




FQCLUS 


34 




FQFdNl 


36 byte 




FQFUN2 


37 byte 




Alterna 


te entries 


r" JC- r-, ,- 



Symbol Offsetg 



FQERNO 


4 


IQCCM3 


6 


FQCOM2 


16 


FQNAM2 


20 


FQBUFL 


20 


FQCOM 


34 


FQNENT 


36 


FQPROT 


37 byte 



Queue v;ord, set by file processor 

2*"--joV» i"i;uber of request issuer 

internal function number 

2 • c h a n n e 1 numb-e r 

Pro j ec t /prograruaer number 

tv. f o ""*.*.".■> rd file n^p^e i n rc^r" • v — SO 

Extension in Radix- 50 

Segments in file or segments to ? 

Open for output, s^it'.h 

Mode indicator 

File's flag 

Internal return dispatch 

2 -byre Asci.i device name 

"l-h, »t-'*- in-lit '"rn;^: r < hig^ 1 "bvt *;■ - - 

• lie 1 1 v.- s t e r s i z e 
Chai n i nq f una t ion 

* 

Interna- ■;:,■; tr;; rum: Lien 

sDeciai c . i.tuatloTts) 
Usaae 



«. ... r 



Error message code &nd t^xt beg inn ;* 

Internal data 

Intern^'! return ncicn-e^s 

3-word n'-'-y fil? ^.cmr . ext \n T x< 

Default rjfier length 

DDE J 1 1 V odd:: esc 

Number ot : directory entrio^ 

Ivov •'■ro'.octicn ;'-"u O ov--; •■, i: .: 



XRB 



TRANSFER CONTROL BLOCK 



XRLEN 


length of 10 buffer in bytes 





XRBC 


byte count of transfer 


2 


XRLOC 


pointer to buffer start for Xfer 


4 


XRCI 


channel number for Xfer 


6 


XRBLK 


starting device block no for Xfer 


10 


XRTIME 


wait time for TTY input 


12 


UNUSED 




14 


XRBSIZ 


reserve 7 words for XRB 


16 






20 






22 






24 






26 






30 






32 






34 


; 




36 



Used by User to initiate an I/O request and for Monitor/user 
data requests. 

Values in 'XRLEN' and 'XRLOC and 'XRCI' must be even! 

Value in 'XRLEN' must be > = the default value 

Value in 'XRBC must be < = value in 'XRLEN' 



JZ-S- 



LINE PRINTER DDB 



Output 
Control 
Area 

_i 



Status and 
access control 



devi.ce handler 

index 



"i 



number 



nt*7n p>t i nh i nd py 



CI; ck time at which device was assigned 



i 4 U 



Vertical position 



Horizontal pes it ion 



! -l 'i n 



„J 



Output fill buffer poinxer 



Output fill count: 



Output empty buif ?.r po'.rrcer 



Output empty count 



Output buffer count 



# lines per page 



« characters 
osr line 



L7 

14 

■ 1 s 



Device Data Block, continued 



Sys 



Offsets into the Input/Output control groups (relative to 
DDINP and DDOUT respectively) , 



Symbol Offsetp 



Usage 



FP 





FC 


2 


EP 


4 


EC 


6 


BC 


10 



Fill pointer ♦ 

Fill count (-37 to -1} 

Empty pointer 

Empty count (-37 to -1) 

Buffer count (as a byte) 



Bit assignments for the DDB status words are as follows: 



DDSTS 

Symbol Value 



DDSTAT 100000 

DDWLO 2000 

DDRLO 1000 

DDNFS 400 



Usage 



Internal status, cleared bv "close" 
Write-lock for device if :>et 
Read-lock for device if set 
Device is not f ile-structured 



DDCNT 

Symbol Value 

DDASN 100000 

DDUTL 40000 

DDCONS 20000 



Usage 



Device assigned through command 
Device assigned for utility sequence 
Device is the console device 



.^-7 



^/ice Data Block DDB 



K .' jji time a device is initialized, the ii.it count in DDCT-'P is 
ifi;ented; when the device is rlos^d, the eoant: is deerraen 
I- cbo count goes to zero, and the device ^as net c*ss.tancci, t. 
•- u is re-turned to the system; otherwise iu is retained by the 
job. 

Tba non-device-dependent entries in the DDB are: 



Symbol Offset 



8 



Usage 



DDtdx 

OOSTS 

DDJBNO 

DDUNT 

DDT I ME 

DDH0R2 

ODVERT 

DDINP 

ODCUT 

?DHORC 

f.-ocnt 



byte 

1 bi-te 

2 byte 

3 byte 
4 

6 byte 

7 byte 
10 

22 

34 byte 

3 5 byte 

36 



Handler index (i^rtp;; into nrvKW-i o[-/: 

Status and ^ccppj: control j- /!...■ 

Owner job ::^, ,;,..,, <, -v r ,.j ^^ 

Device/Disk unit rov,.r:r 

Time assigned or ini: u.: 'i?-L:d 

H o r i z o r. t a 1 ^ e ? 1 t ). o \~: 

Vert.ic.-4x ■.■.^i k :o;- 

Input control crea 

u. i.jjit cc . i t-i u i, ci i e d 

Characters per Line -r ,. L 

Lines per page 

Init count for device, hiih bvte ha« 
assignment: status. 



j,'j.x DDB Definitions 



>ys 



Unique offsets within DDB 



S ymbol Offse t 



TTSTS1 DDSTS 1 

TTLINE DDUNT 3 

TTSTS2 DDVERT 7 

TTSTS3 DDVERC 35 



Usage 



Status 1 

Keyboard number times 2 

Status 2 

Status 3 



TTY Status 1 values (Word values) 



Symbol Value 



NOOUTP 


100000 


HAFDUP 


40000 


NOECHO 


20300 


TAPE 


10000 


TT2741 


4000 


TTDDT 


400 



Usacje 



Junk programmed output 

Local echo tty 

Don't echo on ttv 

Tape mode 

Terminal is an IBM 2741 

Into DDT-submode 



TTY Status 2 values (Byte values) 

Symbol Value Usage 

TT33 
TT35 
TTESC 



TTXON 

TTRUB 

TTBIN 

TTTECO 

TTSTAL 



200 

100 

40 

20 

10 

4 

2 

1 



Model 33 tty (no hardware tab) 

Model 35 tty (hardware VT and FF) 

Terminal has Ascii-68 escape (ESC - 33 R ) 

Terminal has XON/XOFF . feature 

Special rubouts 

Binary input mode 

Teco special mode 

Terminal may send XON/XOFF to u:-.-.TS 



«£-? 



'TY DDB Definitions, continued 



TTY Status 3 values (Byte values) 

S y rab ol Value Vl^HP 

Terminal needs computed fill 

Terminal wants'* parity added 

Terminal wants. odd parity 

Translate to upper-case on input 

Don't print control characters with uparrows 

Fill amount (0 to 7) 



TTLA30 


200 


TTPRTY 


100 


TTJt'UUD 


40 


x x u ^ 


20 


TUPAR 


10 


* IF ILL 


7 



Z~-'0 
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TTY DDB 



status DDSTS 



device handler 
index DDIX 



device DDUNT 
unit num 



DDJBNO 
owner job index 



Clock time at which device was 
assigned o- "> »'/«*■*» 



DDTIME 



DDVERT 



DDHORZ 



Input fill buffer pointer 



DDINP 



Input fill count 



Input empty buffer pointer 



Input empty count 



Input buffer count 



Output fill buffer pointer DDOUT 



Output fill count 



Output empty buffer pointer 



Output empty count 



Output buffer count 



Status DDVERC 



horizontal max DDHORC 
(# character s/line)+/ 



Assignment init count for 
Status device DDCNT 



- 



+0 
+2 

+4 

+6 

+10 

+12 

+14 

+16 

+20 

+22 

+24 

+26 

+ 30 

+ 32 

+ 34 
+ 36 



DEVICE DATA BLOCK (DDB) 

These 16 word blocks are permanently assigned to each device and 
teletype in the system. The device table (DEVTBL) contains pointers 
to each DDB. 

If a device is assigned to a job, then the entry in "DDJBNO" contains 
the number of the owner job. If 0, the device is available. 

Each time a device is init'ed, the init count in "DDCNT" is incremented 
When the device is closed, the count is decremented. If the count 
goes to 0, and the device was not "assigned" then it is returned to 
the system? otherwise it is retained by the job. 

The non-device-dependent entries in the DDB are labeled, 
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?CSTS 



3 FCUNT 



FCANB 



LSB 

MSB 



rieval 
lock 



? 


P 


F 


| 

F 


F F 


F 




c 


C 


C 


C 


cjc 


C 


F 


N 


F 


L 


N 


UjW 


R 


c 


L 


U 





6 


PR E U 


B 


F 


C 


eIdUUJs 


-B 


D 


K 


xlTlTlhlR 



. I/O Handler Index 
(Disk File Handler=0) 



L 



Number of Segments in File 



Next Logical Block to Read/Wr ite 



ile Unit Number 



Segment Count for 
Current Transfer 



First Logical Block in Window 



Name Block Offset 
Divided by 2 



File Cluster Size 
Minus 1 



Physical Segment Number of 
Name Block 



Set by User to Relative CMA 

r . for X F ER . 



UFD Address of Next Retrieval 
Window 



Physical Address of Segment 2 of Cl.N 

N + 1 



N + 2 



N + 3 



N + 4 



N + 5 



N + 6. 



4 



FCIDX 

FCSIZ 4 
FCNLB 6 
FCFLB 10 
FCLUS 12 

FCDNB 14 

FCETC 16 

FCWND 20 

7 cluster pointer 



FCB and RETRIEVAL BLOCK DEFINITIONS 



FCSTS DEFINITIONS 



FCNLBB 


= 


100000 


If 


1, 


FCFUFD 


= 


40000 


If 


1, 


FCLOCK 


= 


20000 


If 


1, 


FCNOEX 


= 


10000 


If 


1. 


FCUPDT 


= 


4000 


If 


1, 


FCWRIT 


= 


2000 


If 


1, 


FCREAD 


= 


1000 


If 


1, 


FCUSE 


= 


400 


If 


1. 



the 'FCNLB' is backed up 

the open file is a UFD 

the current buffer is locked 

the file may not be extended 

the file is open for update 

user may not write file 

user may not read file 

this user got 1st write priviledge 



File Control Block 



DPSTS 



Status 



DDIDX 



^Handler Index 




2 

4 
6 
10 
12 
14 
16 
20 
22 
24 
26 
30 
32 
34 
36 



FOUNT 



File, Unit #_| FCBC 



ft Blks in Buffer 



FCSIZ 



# Segments in File 



FCNLB 



Next Logical Blk to Read/Write 



FCFLB 



First Logical Blk in Window 



FCANB 
FCDNBL 



Name Blk Offset/2 [ FCLUS File Cluster Size 



Phys Seg # of name blk 



FCDNBM 



Extended Seq # 

UFD Address of next RB 



FCWND 
"XT 



Window 



DDSTS 



FflT 



IT 



12 



11 



10 



u 



DDNFS 1 if non file structured 
* DDRLO 1 if no read access 
" DDWLO 1 if no write access 
- FCUPDT 1 if open for update 
-FCNDEX 1 if file may not be extended 
-FCLOCK 1 if buffer locked 
-FCFUFD 1 if file is UFD 
-FCUSE 1 if user has 1st write privileges 
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Disk Request Queue Entry Block 



DSQ 



DSQ Queue Link ___ 



DSQEl^ Retrycnt & Error Flag | DSQJOB Job** 2 2 

DSQL3Q L3QUE Bit to Set at completion 4 



DSQXDA Ext. Disk Address ; 6 

DSQDMA Disk Segment # . 10 



DSQXMA Ext Core address of transfer 12 



DSQCMA Core address of transfer 14 



DSQUNT Unit # DSQCNT Seg CNT of Xfer 16 

DSQFAR Que Fairness or Priority j DSQFUN Op, Function Code 20 



DSQMSG FCB Ptr __ . 22 

DSQTOT Total Transfer Counter 24 



DSQPDA Phys. Disk Address 26 



DSQOPT Disk Optimization Word I 30 



DSQ SAV Saved Function DSQDUN Unit # * 2 : 32 



DSQPUN Unit # | DSQTFN Temp Disk Function \ 34 

DSQTMP Temp Storage or Drivers 36 



This block of 16 words is passed to and from the disk drivers 
to initiate disk data transfers and to signal that a transfer 
has been completed. If the transfer was not done the block 
is passed back with a zero count in DSQERR. 



DSQFUN 
read - 105 
write - 103 
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IMPORTANT INFORMATION 
■IN MONITOR 



DIGITAL EQUIPMENT CORPORATION 



I.OWCOR 



Virtual 000000 to 000776 is for vectors 



DATE 


Current date 


TIME 


Current time 


TIMSEC 


SECS to next min 


TIMCLK 


Interrupts to next sec 


JOB 


Current job *2 


NEXT 


Next job to run *2 


JOBDA 


PTR to current job 


' JOSP 


PTR to current flags (JDFLG) 


IOSTS 


PTR to current 10 status ( JDIOST) 


JOBWRK 


PTR to job work block 


JOBTIM 


Run time in tics this run 


JOBQNT 


Used residency quantum in ticks 



1000 
1002 
1004 
1005 
1006 
1007 
1010 
1012 
1014 
1016 
102C 
1022 



^-/ 
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IDENT 


CONTENTS 


lative) 


.HOLD 


Start of Holding Chain 


2 




End of Holding Chain 


4 


ODTARS 


ODT Saved Addr Register 


6 


00TDRS 


0DT Saved Description Reg 


10 - 


WAIT2T 


2 Tick Delay L3Q Bits 


12 


WAITNT 


Next Tick L3Q Bits 


14 - 


L3QUE 


Level 3 Queue Bit Pattern 


16 


FREES 


Pointer to 1st Free Small Buffer 


20 




Count of Free Small Buffers 


22 


FREEB 


Pointer to 1st Free Big Bufrer 


24 




Count of Free Big Buffers 


£.K* 


orour iaj 


jNon-zero it out or small Buffers ] 


30 


QUANT 


Running Job's Quantum 


32 


BIGFLG 


Non-zero if out of Big Buffers 


34 


MAPHI 


Extended Address Bits 4+5 


36 


MAPLOW 


Low Order Address 


40 


_SWAPF/NXTRES 




42 


CORPTR 


Pointer for Next Spot to Sub-schedule 


44 


. JOBPTR 


Round-Robin Job Numbers (3 bytes) 


47 


CORFOR 


Round-Robin Job Number to Force Out 


50 


_FPPFLG/FPPFEC 


FPPInterrant Flag/FPP Exception Code 


52 




FPP FEA goes here on error 


54 


RTSLNK 


Link to RTS Description Blocks 


56 


RTSLOD 


Non-zero if Ptr to RTS Desc. Block to Load 


60 


•RTSLOW 


Cortbl Ptr to start of load (or 0) 


62 


RTSHGH 


Cortbl Ptr to End + 2 of load (or 0) 


64 


RTSJOB 


Job #X2 to signal on land done 


66 
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Monitor Core Map //,! 
(Part of M0NCTL area) 
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SWAP CONTROL PARAMETERS 



IDENT 



CONTENTS 



c4 AterJCTi. 72 



66-j 


SWPMAX 




70 


SWDONQ 




72 


SWPDSQ 


Swapping Parameter (DSQJ BlocK 






Job Slot in DSQ 






Start Swap Completion Routine 






Fill - up to 16 wds 
































132 


SWBASE 


Swap Sys ~fi. t 13 File Base 








136 




SWAP 1 Sys 0?/fl File Base 








142 




SWAP 2 Sys[0, I] File Base 








146 




SWAP 3, Sys[#, 1] File Base 








152 


SW#>r 


# of Active Bytes in "SWPMAP" 








154 


SWPMAP 


SWAP0 Bit Map 












' 








164 




SWAP 1 Bit Map 
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SWAP 2 Bit Map 




















204 




SWAP 3 Bit Map 
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Monitor Core Map // . 2 
(Part of MONCTL area) 
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CSkPHV 










. . 


PSkQMt 


* 










T6l set 






. 




r 


DEVNAM: 


two byte name table for device types 
(RF, RK...XX, YY, ZZ) 


■ 


DEVNKB: 




: " 


DKSIZL: 


disk sizes in sectors (least signi- 
ficant) 




DKSIZM: 


disk sizes (most significant) 


• 


DEVCNT: Device unit number maximums 


■ 


DEVPTR: 


Device unit list (disks, Y's...ZZZ). 
Pointers to DDB pointer table. 


• 

• 


TTXLST : 


terminal characteristics list (modems 
only DC11, DH11, etc.) Address of 
CSR's status bits. 


> 

• 


TTILST: 


table of I/O CSR's for terminals 
(INPUT) 


* 


TTOLST : 


table of I/O CSR's for terminals 

(OUTPUT) 


* 
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XXCRAS 




: 
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KCR S<r£ 
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WOHDS 



DIGITAL EQUIPMENT CORPORATION 



LEVEL 3 QUEUE 



15 



14 



13 j 12 11 10 9 8 7 I 6 5 



4 3 



I 



i 



Spare (2780) 
QFIP FIP to be rui 
QSWAP run the swappe] 
QFILE 
QDTSYM 



file I/O driver 1 
be run 
Dectape symbiont tc 
be run 



"big buffer available" 

alerter 

"small buffer available' 

alerter 
Dectape I/O driver complete 



} QBUF 
QBUFSM 
QDDCON 
QDACON Dectape block allocator comple 
QUECDR Cardreader 10 done 
QMTACM Magtape bring into core complete 
QMTADN Magtape I/O done 
QBRIDG Schedule Core Manager 
QSCHED Scheduler to be run 



QFORCE Force a jobout core task 
QTIMER Timer service to be run 
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JOB FLAG ASSIGNMFy-^ 



JDFLG 




JFFOST che^i* •* iW&'X "*' 

-JF.COST post J -!f ~/c \ 

JFKEY post key-A'onl cor: •, 

COriti'Qi, C V.vpp** r-.« ,_ 

JFI3ST first rime i^> tor «o;?" " 

----OFc*) forc-^irg job (:«e I/u RE-DC 



~_ Tf: ri"ir 



»• T, --;-,. 



JFswPr. 



iJF>- K -IV 
- vF373 
— • JFNGPR 

JFLOCK job is to scav in c<"»*"p 



f.wao f-rr«'->r > or : 

^.vc/:^U.:w ?-, I 
perTarent p-rivix-E.^e.-: 
c.*-f-poi szy priviicga;-; 
jo.o hd'i no account 



t.o « i 



JDFLG 2 
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JBSTAT AND JBWAIT 



15 



14 12 



11 



JSDSK disk wait 
— JSKEY KB input wait 
JSDTA DECtape wait 
— JSLPT line print wait 
JSPTR paper tape reader wait 
— JSPTP paper tape punch wait 
JSCDR card reader wait 

JSMTA Magtape I/O completion 

— ■ JSXXX XX WAIT 
JSYYY YY wait 



JSZZZ ZZ wait 

; JSTEL teleprinter wait 

■ JSFIP file processor wait 

JSTIM sleep wait 

— JSMUL small buffer wait condition 
JSRES in-swap required 



JSALL= 64172 



^ 



DIBECTOHY STRUCTURE 
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Disk File Optimization 

1. Optimize the Pack Cluster Size for each disk. 

The pack cluster size is optimum when the entire SAT 

(Storage Allocation Table, stored as (0,1) SATT.SYS) 

can fit into the 256-word buffer in core beginning 

at SATBUF. To effect this, each RK disk should have 

a minimum pack cluster size of 2, and each RP03-disk 

should have a minimum pack cluster size of 2 and 

preferably of 4 # RF disk units with less than 5 

platters can have a pack cluster size of 1, but RF 

units with more than 4 platters should have a pack 

cluster size of 2. RP04-disks have a minimum of 4 
and should use 8? 

2. Use private packs for production files rather than 
the public structure. 

Whenever a file is opened on the public structure, 
the directories on every public disk have to be 
searched, either to verify the file's existence or to 
ensure its non-existence. This overhead of searching 
more than one disk can be avoided by placing the file 
on a private pack. 

3. Dedicate complete structures to large production files 

If possible, dedicate an entire private pack to a 
single large production file. This will ensure 



Disk File Optimization (Cont'd) 

efficient directory organization and will minimize 
disk "seek" time for *k/<\ processing/accessing. 
When it is necessary to put more than one lile on 
the same pack, dedicate a whole account to each 
large production file. This will minimize directory- 
searr.h overhead- When it is necessary to put more 
than one file under the same account on the same 
disk, then create the large files before the small 
ones. This ensures better organization of the 
directory structures. 

4. When possible, keep distinct files accessed by the 
same program on distinct disks. 

If a program accesses more than one file and if ail 
of these files are on the same disk pack, then disk 
head movement will be required every time the program's 
current reference to a file is different from it:s 
preceding file reference? thus a large percentage 
of execution time will be spent in moving the disk 
head back and forth. On the other hand, if each file 
referenced by the program exits on a distinct disk, 
then no head movement is required whnn changing frorr> 
one file reference to another in the program; the 
heads will simply move once when tne location of. the 
data itself requires it- 
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Disk File Optimization (Cont'd) 

5. Pre-extend files to their maximum length. 

£ rea ^ n g a £j^ e a ^. execution time by sequential 

printing of data, Ipy sequential writing of a virtual 

core array, or by sequential putting of records entails 

a high overhead of repeated calls to non-resident parts 

of the File Processor in order to extend the file 

each time another sector is required. This 

needless overhead can be avoided if the file is 

already in existence at its maximum length or if it 

is created at its maximum anticipated length before 

any significant data is written upon it. Thus at the 

beginning of any program which is to create a long 

file, the highest record number should be put or the 

highest element of the virtual array should be 

written (even with meaningless data) before any 

other writing is done. This applies also to scratch 

files. The FILSIZ option can also be used to pre- 
extend files. 

6. Use Record I/O disk accesses wherever possible. 

Formatted ASCII is the slowest RSTS I/O. It examines 
each character one by one for delimiters, line 
terminators, etc. and executes conversions between 
internal binary forms and external ASCII representations 
for all numerical data. Virtual core I/O is fast 
for a given individual array, but it is not record- 
oriented. When a logical record includes more than 



Disk File Optimization (Cont'd ) 

one item, virtual core I/O will scatter the elements 
of the same logical record into different areas of 
the disk, grouping them by their array type and name 
rather than by any relevance to the same record* 
This may multiply disk accesses in a program. 
Record I/O as its name implies has been designed 
for processing records, in either sequential or 
randon-access mode. It packs data efficiently and 
groups data by record organization. This minimises 
the disk accesses needed for processing any record , 

7. Optimize files' cluster sizes. 

Since at any given moment the current retrieval injforriAtxo- 
for a file is stored in core in the "window" c£ th* 
file's File Control Block, retrieval overhead car. 
be reduced to a minimum if the file's cluster si^e 
is such that the file does not need more than 7 total 
clusters. 

8. Re-start from cleaned structures whenever possible.. 

When an account is first created and the first file 

is created under the new account, the linkages in 

the directory structures will be in the optimum 

order for fast and efficient directory handling. 

After a nuirbfr." c ' : -;-i ?.<*'. :.. ,rt,; . ^u'w/. ■;, w.c- ..v^- 

creations, hcv^r'vr, '^ie m:- / -:.o .!?.*;:■ T.r ):■- : \^.\:' ■. ?• ?;■._> .7 *.-;r"* 
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Disk File Optimization (Cont'd ) 

linkages may then point forward and backward in 
whatever fashion was necessary to update the directory. 
Consequently, to ensure that directory structures 
exist in a form optimized for fast access, it is best 
that disk pack periodically be re- structured. This 
can be done by using the DSINT program to prepare a 
fresh pack and then transferring to that pack all 
files which are to be accessed on it. Likewise an 
account should periodically be re-structured by first 
"zeroing" the account and then transferring to that 
account all files which are to be accessed under it. 
(Save files elsewhere before zeroing the account) . 

9. Optimize record size if possible. 

If a file has a cluster size larger than 1 and if the 
size of the logical records to be processed exceeds 
512 bytes, then an explicit RECORDSIZE of 1024 or 
greater will speed execution. This is true because 
RECORDSIZE defines the size of the user's buffer area 
and when the cluster size of the file allows it, the 
system will fill/empty the buffer in one disk access 
rather than in multiple accesses. If, however, the 
logical records to be processed are less than 512 
bytes in length, then little is to be gained by departing 
from the default record size of 512 bytes. 



Disk File Optimization (Cont'd) 

10. Keep production accounts distinct front development 
accounts . 

Because extensive file deletions, modifications, and 
creations can leave directory structures in an order 

w^-.wv^«. -w^. j-^t,^ emu cjL2.j.\»,x(isiiu uxsji processing 

and because development work should always be clone 
under accounts distinct from those under v/hich 
production files are kept. 



The DSKINT option will initialize a disk to the minimum 
RSTS file structure. A single or multi-platter RF disk, 
a single RK05 cartridge, or single RP03 disk pack may 
be initialized as a public, private, or system disk. In 
addition to writing the minimal file structure, DSKINT 
checks the whole disk for bad blocks by performing write 
and write-check operations over the total disk area. In 
checking for bad blocks, DSKINT will use from 1-8, test 
patterns as specified by the user during the DSKINT dialog, 

The minimal RSTS file structure includes the master file 
directory (MFD) and the UFD for the system file account 
[0,1]. In the system file account, two files are created 
during the DSKINT process. The file BADB.SYS contains 
all bad blocks detected during the bad block checking 
phase of DSKINT. Bad blocks are permanently allocated 
to this file and may not be used during normal Time- 
Sharing operations. The second file is SATT.SYS which 
contains the storage allocation table (SAT) for the disk. 
The SAT contains one bit for each cluster on the disk. 
The size of SATT.SYS is therefore dependent on the size 
of the disk and the pack cluster size specified in the 
DSKINT dialog, the size of BADB.SYS depends on the 
number of bad blocks detected. Public and private disks 
contain only this minimal structure. The only difference 
between public and private disks is a "private" bit is 
set in the MED for private disks. In initializing a 
system disk, DSKINT will also write, in addition to 
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the minimal file structure, the MED entries required for 
the system library account [1,2], the library UFD and all 
library files are created under normal time-sharing operations 

When a new system is created by the system generation 
"Core Image Library" or "CIL" is written somewhere on 
the di«k end a bootstrap is written into physical sector 
zero. If the CIL is written on a blank disk (i.e. freshly 
formatted disk) . the disk should be booted as explained 
in System Manager's Guide and then the DSKINT option must be 
used to write the minimal file structure. DSKINT will not 
destroy the CIL which was written during SYSGEN* In this 
case, DSKINT will also create the file RSTS., CIL under 
account [0.1] to map the CIL. The refresh option should 
be used to create the other system files under [0,1]. 

Bootstraping is the mechanism by which the CIL area is 
defined. Hence, initializing a disk as a system disk 
will only preserve the CIL if it was booted. It ia however 
possible to initialize a disk as a system disk and write 
the CIL later with SYSGEN, The procedure in this case is 
to mount any RSTS system disk on unit (RK or RP) or to 
load a RSTS system onto an RF disk, boot this system disk.. 
mount the disk to be initialized on any other disk drive, 
request the DSKINT option, and answer the DSKINT dialogue 
questions for the disk to be initialized. This procedure 
merely writes the minimal file structure plus the library 
account. It does not preserve anything on the disk 
except CIL AR3& if borteS device- 



If a new CIL is written on an old RSTS system disk 
(containing RSTS files) , the DSKINT option should not 
be used since it will destroy everything except the CIL, 
In this later case, the refresh option should be used 
to map the new CIL into the file RSTS. CIL and to 
verify that the file structure has not been corrupted. 
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Disk terminology 



sector 



the number of words transferred: 

256, words for RK and RF, 1024. words for RP 



physical disk address the hardware-oriented address 



numoer 



an index to a sector relative tc a know 
physical address. 



logical number 



an index to a sector of a tile relative 
to the beginning of the file, 



cluster 



a contiguous group of file sectors . 



cluster size 



the nufiiLei of sectors in a cJusrsr 
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Disk file structure 

RSTS disk files exist in clusters of 256. (1024.) word sector? 
The sectors within a cluster are always physically contiguous. 
The clusters themselves may be physically contiguous to each 
other; however, they may be scattered randomly across the 
surface of the disk. 

Directory files 



MFD (Master file directory) 

The MFD on any file unit is a sin^Js file v£v 
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Directory files (cont'd) 

(b) maintains accounting information for those accounts, and 

(c) contains pointers "to the beginnings of their respective 
UFDs. 

(d) The MFD also contains all needed information for 
accessing any part of itself. 

UFD (User file directory) 

There is one UFD for each user account on a file unit which 

(a) catalogs all program and data files under that 
account on that file unit, 

(b) maintains accounting and access information for those 
files, and 

(c) contains all needed retrieval information for those 
files. 

(d) The UFD also contains all needed information for 
accessing any part of itself. 

Program and data files exist on the disk as pure data clusters. 
They contain no retrieval information (i.e., no link -words) and 
no structural information. 

Allocation mapping (the storage allocation table SAT) 

A bit-map table (in file SATT.SYS) is used to record 
which disk clusters are allocated and which are free. 

Each bit in the SAT corresponds to one pack-cluster. 
When a cluster is allocated, the corresponding bit is 



Allocation mapping (cont'd) 

is cleared. Note that the SAT records pack-clusters , 
and that one file-cluster may represent several {up tc 
256.) pack-clusters. 

The SAT is manipulated in core. It is read from SATT.SYS 
into a 256. word buffer called SATBUF. 

Directory structures and retrieval linkage 

Each 256. word sector of a directory is logically subdivided 
into 32. block (ette)s of 9. words each. The following 
blockette- types exist: 

label only in sector of cluster of the UFD or M?2 . 

FDCM file directory cluster map. 

NB name block. 

AB accounting block. 

RB retrieval block (only in UFDs) , 

HO hole (blockette which is not in use) 

The first sector of an MFD on any file unit is always 
located at sector 1. 

The sector number of the first sector of each UFD is 
contained in a pointer within the MFD name blockeete 
for that account. 

The first name blockette contains tne "z?2ir*nz.':z^ cv 



Ux- 



Directory structures and retrieval linkage ( cont ' d ) 

threaded lists of NBs (NBs and RBs in the UFDO chained 
together by link words. 

Cataloging limits 

The maximum number of user accounts that can be catalogued 
in an MFD is 1735. 

The maximum number of user files that can be catalogued 
in a UFD is 1157. 

Directory Structures and Retrieval Linkage 
1) Directory Structures. 

1 The MFD is always located at sector #1 on RK05's and at 
sector #2 on RP03's 

2 Each 256-word segment of a file directory is logically 
subdivided into 32 blocks of 8 words each. 

3 The first block of the MFD is a label block 

4 The last block of every segment of a directory is the 
FDCM (File Directory Cluster Map) . Every copy of it 
throughout a given directory is identically the same. 

5 Any of the other blocks in a directory segment can be 
used as: 

NB Name Block (in MFD or in UFDs) . 

AB Accounting Block (in MFD or in UFDs) . 

RB Retrieval Block (only in UFDs) . 

Any block never used or returned to free status is 



classified as a 

HO Hole (in MFD or in UFDs) . 

2) Retrieval Linkage. 

The first segment of an MFD on an RP03 is always located 

at sector #2 and at sector #1 on on RKJZfS 
The segment # of the first segment of each UFD is contained 

-. t - — w*.-.*4. w*.t.<L. i.u. u mcuuc oxul^ lor "cnac 

account. 
The first word of a MFD or UFD contains a pointer to the 
first Name Block in that MFD or UFD. 
That first Name Block contains the beginnings of 

threaded lists (of NBs in the MFD, of NBs and RBs 
in the UFDs) chained together by link words. 
The linking directs the access forward to any desired 
part of the directory. The linkage, however, is 
forward only. To regress, it is necessary to stszt. 
once again from the beginning, 

3) Addressing modes. 

Two modes of addressing are used in the directories. 

Some "address" entries are pointers containing the segment* 
(relative to the beginning of the disk) where some de- 
sired information begins. E.g. UAR entry in MFC's NB, 
and entries in FDCMs and RBs. 

Other "address" entries are link-words, structured as 
indicated in the illustration, 

4) Cataloguing limits. 

The structure of the directories imposes certain maximum 
limits on the number of arc-cunts and files which 
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Directory Structures and Retrieval Linkage (Cont'd) 

can be catalogued. 

Maximum number of user accounts that can be catalogued 

in MFD is 1735. 

Calculated thus: [(7 clusters/MFD) * (16 sectors/cluster) * 

(31 blockettes/sector)-(l label blockette ) ]/ 

MFD 
(2 blockettes/account) . 

Overhead for cataloguing 1735 accounts is 

11% for RF system disk with one platter, 

2.5% for RC/RK system disk, and 

0.3% for RC/RP system dis. 
Maximum number of user files that can be catalogued 

in a UFD is 1157. 

Calculated thus: [(7 clusters/UFD) * (16 sectors/cluster) * 

(31 blockettes/Sector - 1 label blockette )]/ 

UFD 
(3 blockettes/file) . 

Clustersize 

Advantages of large cluster sizes: 
Reduces size of directories. 

Reduces required number of disk-accesses to directories. 
Reduces fragmentation of files on disk surface and fewer 
"seeks" will consequently be required to access a 
data record. But seek time may increase for 
individual seeks. 
Advantages of small cluster sizes: 
Avoids wasting disk space. 
Lessens risk of being unable to create or extend a file — 



Clustersize (cont'd) 



i.e. after many creations, extensions, and deletions, 
a disk may still have sufficient free space to 
accomodate small clusters but lack sufficient 
contiguous space to accomodate large clusters, 
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16 „ At initialization time 
via DSKINT option 
(or REFRESH for RSTS SI A) 



Directory (both 
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Pack 
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Pack 



256, At creation of the file 
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File unit designation 

(a) General unit designation: 

DF : , DK: , DP:, or the null unit designation refer 
to all "public" file units. 

When a file is to be created under this designation, 
the system will select the public file unit containing 
the most free space. 

When a file is to be retrieved under this designation, 
the system will scan all public file unit, directories 
until it finds the designated file. 

(b) Explicit unit designation: 

DF0:, DK0:, DK1:, DP3:, etc. refer to specific and 
distinct file units, which may be either "public" 
or "private" . 

Access to files 

(a) Protection codes and privileges: 

The protection code byte designates 

1 read-protect against owner 

2 write-protect against owner 
4 read-protect against group 
8 write-protect against group 

16 read-protect against others 
32 write-protect against others 



Access to files (cont'd) 

64 compiled Basic program (only RSTS V55 
128 privileged program status for compiled 
program 

If a user is logged in under a [l,x] account, or is 

rnnni'no a nri vilpapfl nrnnram . the* pmaram is « 1 1 ourorl 

to bypass all protection-code limitations — i.e,, ^ 
privileged program may read a file irrespective of the 
file's status. 

If neither the user nor the program is running 'privileged" , 
the restrictions imposed by a file's protection code 
apply. In such cases, no one e*n read, write, er delete 
any file protected against him, and the system will not 
allow renaming or modifying -BAC files (RSTS V4) cvr f:..V..-7 
whose extension is .BAC and/or hav^ » protects or. code 
indicating that they are compiled (RSTS V5) , In such 
cases, only the system editor is able to create ?r 
transfer .BAG files. 

Normal and Update accessing , 

Normal accessing of disk files. 

When a user attempts to open a file in normal mode, tb« 
system will issue a " protection violatinr*" error 
(which may be processed us? in 3 the ON FRP.O?. >DTO 
statement) if thfi ;rilp iv-s 5..lra-v3y k frn o* 

s - /t 
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Normal and Update accessing, (cont'd) 

someone else in update mode. 

Then system then determines the user's read and write 
privileges as based on his account number and the 
file's protection code. The result may be read 
privileges, write privileges, both or neither. 

The system then determines whether the job is running in 
privileged status, either because it is a privileged 
program (bit 128 set) or because it is under a system- 
manager type account [l,x] . If such be the case, 
priveleges are changed to read-write. 

A check is then made to determine whether someone else 
has already obtained write-access to the file. 
If so, any write-privileges are taken away from 
the current petitioner. 

If, as a result of the preceding, the job has neither 
read nor write privileges, the system issues 
"protection violation" ; otherwise, it proceeds to 
open the file. 

Update accessing of disk files. 

If a user attempts to open a file in update mode which 
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Normal and Update accessing (cont'd) 

is already open in normal mode, the system 
issues "protection violation". 

The system then determines the user's privi3.eges as 
outlined above. 

If the job has, as a result cf the preceding,- br-t:h 

read and write privileges, it is allowed to procetc 
else the system issues "protection violation" . 

The above outlines the process under RSTS V4. RSTS V'. &zy 
have some subtle differences (especially regarding privt3*.g.^ 
users) . The privileged user or program under RSTS V5 is 
allowed to open disk and DECtspe unitr, ir norJ-filt-^tr-7.:tur^ 
mode. GET and PUT thus tefar to physic^ Vw-^k 
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OPEN "DK0:" AS FILE 1* 
opens DK0 in non-file-structured mode. 

Pointer values in the Bootstrap Block 

Of f setg Meaning 

160 The absolute starting logical block of the : 

CIL core image 
162 The load address c\ -uhe liltit CIL ~ox*£ :.Dag- 

164 The si^e in %n t<r • /. ;:'.;- ■ *;'s- *.*"• ; ^- ;i ~ 1 "--' 



Pointer values in the Bootstrap Block (cont'd) 

166 The transfer address of the first CIL core image 
170 The CIL logical block size in words per block 
172 The first address (Pseudo load address) of the 
bootstrap (I.e., where bootstrap relocates to). 
174 The external page address of the system device 
176 The absolute starting logical block of the CIL 

Bootstrap operation: 

After relocating itself to high-core (using the address set 
in location 172), the bootstrap sets up a transfer from the 
disk using the following parameters: 

disk address word 160 
word count word 164 

memory address word 162 

If the transfer was successful, the program is started 
using the address stored in word 166. 

The bootstrap normally relocates itself to XXX250 where 
'XXX 1 refers to the highest 4K bank of core available 
(up to 28K, of course) . 
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RSTS S.W.S. Notes 
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The number of retrieval blocks per file is Not limited ...As manv 
as needed are used and are contained in UFD. 

Large 

There are seven cluster pointers per Retrieval Block 

Each cluster pointer points to a beginning segment number for the 
File Cluster of sectors. The Segment Number is Not a physical 
disk address, but is converted into one. 

All of the sectors in a cluster are physically contiguous. 

In 5-21 PAK always cleaned on Start 

In 5B-24 PACK cleaned if Bit 15 Pack Status word of MFD is set 
during Start 

Refresh Pack is 
Default Pack is 
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master file dirkctohy (mfd) BLQCKrrrf: format 



Mm label 

(ONK ONLY PER MFD) 



LINK 
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FIRST NT) 
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MFD 


-1 
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CLUSTER SIZE 








PACK 


STATUS 








PACK 
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(CHARS 1 
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PACK 
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(CHARS 4 
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RAD50 



MFD ACCOUNTING BLOCK (AB) 
(ONE PER ACCOUNT CATALOGUED IN MFD) 



+1 (TO SIGNAL THAT BLOCK IS IN USE) 
(-2 IF BAD DISK BLOCK) 



ACCUMULULATED CPU TIME FOR THIS 
ACCOUNT 



ACCUMULATED CONNECT TIME FOR THIS 
ACCOUNT 



ACCUMULATED KILO-CORE-TICKS FOR 
THIS ACCOUNT 



ACCUMULATED DEVICE TIME FOR THIS 
ACCOUNT 



ACCUMULATED # j ACCUMULATED f 
OF LOG-OUTS 1 OF LOG- INS 



DISK QUOTA - OF DISK BLOCKS 

PERMITTED AT LCG-OUT 



UFD CLUSTER FACTOR 



MFD FILE DIRECTORY CL US TER MAP (FDCM) 
(ONE BLOCK OF THE MFD) 



FILE DIRECTORY CLUSTER SIZE 
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HFD NAM?^ B LOCK ( N B) 
(ONE PER ACCOUNT CATAI-OGUED IN MFD) 



LINK TO NEXT NB IN MFD (OR IF END) 



PROJECT # 



PROGRAMMER # 



PASSWORD (CHARS 1-3) RAD50 



PASSWORD (CHARS 4-6) RAD50 



PROTECTION 
CODE 



STATUS 
CODE 



CURRENT ACCESS COUNT 



LINK TO AB FOR THIS ACCOUNT 



BLOCK OF FIRST UFD BLOCK FOR THIS 
ACCOUNT (OR 0) 



HOLE (HO) - UNUSED BLOCK 



-♦-CURRENT ACCESS COUNT - SIGNALS WHETHER 

ACCOUNT IS IN USE. IT IS INCREMENTED 
BY 1 AT LOG-IN AND DECREMENTED 
BY 1 AT LOG-OUT. 



_^. PROTECTION CODE IS MEANINGFUL IF UFD 
IS OPENED AS A FILE. 



PACK STATUS: 

IF BIT 14 IS SET TO 1. THE PACK IS PRIVATE- 
ELSE IT IS PUBLIC. SYSTEM DISKS ARE ALWAYS 
MARKED AS PRIVATE; WHEN USED AS THE :-YSTEM 
DISK. THEY ARE TREATED AS PUBLIC. 5 r JT WHEN 
MOUNTED ON ANOTHER SYSTEM THEY WILL BE 
PRIVATE. 

BIT 15 IS SET TO 1 ON A "MOUNT" AND TO 
ON A"DISMOUNT". (IF A NON-MOUNTED DISK HAS 
BIT 15 SET TO A 1. TIIEH IT WAS NOT PROPERLY 
•DISMOUNTED" (EG. SYSTEM CRASH) AND NEEDS 
TO BE "CLEANED". 
BITS J 3 - ARE CLEARED TO 
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File Directory Cluster Map 



File Directory 
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MCPU 
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Project No. 
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Password Rad 50 
Password Rad 50 
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MFD NAME BLOCK 






+1 if block in use, -2 if bad block 
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4 bits 


Connect time for account 
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Accum Kilo Core Ticks * 
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Accum Device Time * 


10 




CPU TIME 
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10 Bits 

KCT 


12 


• 


Total Segments Permitted 
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MFD ACCOUNT BLOCK * Reset by Read Data Reset Accounting 



Protection Byte Bit Assignments (UPROT) 



UFD/MFD 



Bit 15 
14 
13 
12 
11 
10 
9 
8 



Privilege Bit, used to set JFSYS 

1 = Run only 

Write Protect from World 

Read Protect from World 

Write Protect from Group 

Read Protect from Group 

Write Protect from Self 

Read Protect from Self 



Status Byte Bit Assignments (USTAT) 



UFD/MFG 



Bit 



Marked for Delete if 1 

File Entry if 0, MFD/UFD Entry if 1 

Not to be Killed if 1 

Not to be Extended if 1 

File Already Open for Update 

File Already Open for Write 

Must be Zero 

File is 'Out of Sat' if 1 
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UFD NAM!-: BLOCK ( N R ) 

(ONE PI-~R FII.F. CATAJOGULD IN UFD) 



LINK TO NEXT HB IN UFD (OR IF END) 



FILENAME (CHARS 1-2) RAD50 



FILENAME (CHARS 4-6) RAD50 



EXTENSION RAD50 



PROTECTION CODE 



STATUS 



FILE ACCESS COUNT 



LINK TO AB FOR THIS FILE 



LINK TO FIRST RB FOR TF!IS FILE 
(OR IF FILE IS OF LENGTH) 



UFD ACCOUNTING BLO CK (AB) 

(ONE PER FILE CATALOGUED IN UFD) 
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+ 1 
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-2 IF BAD DISK BLOCK) 


LAST ACCESS DATE 
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( UNUSED ) 


CLUSTER FACTOR FOR THIS FILE 
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UTlr imae 'JUftLTXU&S 



7 f DUfY™ 



Link to Next Name Block, is End of Cha in 
jpilename 



Eilename 



FiXtflnsifl 



Priv gj 



■B l.Hl M 



< 



< 






a 



£J 



1 Status Byte 



Account Block Link 



Retrieval Block Link,0 is No File gpace 



UFD NAME BLOCK 



+1 if Llock in Use # -2 if Bad Block 



£ate of Las t Access 



File Segment Size 



Date of Creation 



Time of Creation 



RTS Name Rad 50 



RTS Name Rad 50 



1 

File Cluster Size 



UFD ACCOUNT BLOCK 



Link to Next Rib, is End of 


Chain 
Start 


j 


Physical Segment # of Cluster 


Physical Segment # 6f Cluster 


1 Start 
















.. 


— 


If then end of list 



RIB 



Retrieval Information Block 



ULNK 
UNAM 2 
4 
6 
USTAT 10 
UACNT 12 
UAA 14 
UAR 16 



ULNK 

UDLA 2 
USIZ 4 

UDC 6 

UTC 10 

12 
14 

UCLUS16 



ULNK 



4p 



FORMAT OF T.TMK WORDS IN DISK DIRECTORIES 



15 



ft 



13 Hi 



ms 



43 



i 






3) BLOCK (ETTE) BYTE-OFFSET WITHIN THE BLOCK. 

RANGE « to 496,, IN MULTIPLES OF 16, # 
eg. 0.16.32.43. etc. 

1) LOGICAL CLUSTER IN THE FILE. 

RANGE » to 6 

USED AS INDEX THROUGH FDCM. 

2) BLOCK OFFSET WITHIN THE CLUSTER. 

RANGE = to (CLUSTER SIZE - 1) 



PROTECTION CODE AND STATUS FORMATS IN NAME BLOCKS OF DIRECTORIES 



PROTECTION 
CODE FORMAT 



STATUS 
FORMAT 



U 



13 [12 
J 



11 



<0 



6 



3|2 



rx 



o 



1 « FILES DATA SPACE IS PHYSICALLY ON ANOTHER DISK. 

(USED IN RK/RC DISK FOR FILES OK RC DISK) 

2 ■ MUST BE CLEARED TO 0. 

4 - FILE ALREADY OPEN FOR WRITE. 

10 $ - FILE ALREADY OPEN FOR UPDATE. 

20, « FILE NOT TO BE EXTENDED. 

40 t - FILE NOT TO BE KILLED. 

100- MFD / UFD - IF THIS BIT IS CLEAR. IT IS JUST A 
1 PROGRAM or DATA FILE. 



_ 200- FILE MARKED FOR DELETION. 



1 - READ PROTECTED AGAINST OWNER. 

2 - WRITE PROTECTED AGAINST OWNER. 

4 - READ PROTECTED AGAINST GROUP. 



8 ■ WRITE PROTECTED AGAINST GROUP. 



16 - READ PROTECTED AGAINST WORLD. 
- 32 - WRITE PROTECTED AGAINST WORLD. 



128- PRIVILEGED PROGRAM STATUS FOR . BAC FILE. 
19 



£~-3ji 



Protection code 



r 



15 I 14 i 13 I 12 



11 I 10 ! 9 

. 1 „ J 



STATUS 
BIT 



1 
2 
3 
4 
5 
6 
7 



WORD 



4 8 
108 

20 8 
40 8 
100 8 

200 8 



PROTECTION CODE 



8 
9 

10 
11 
12 
13 
14 
15 



1 
2 
4 
3 
16 



10 



32io 



64 



10 



Status Word 



8 I 7 i 6 | 5 j 4 



3 2 1(0 



128 



10 



Files data space is physically on another disk 

Must toe zero 

File open for write 

File open for read' 

File may not be extended 

File may not be killed 

MFD/UFD ~ 1? program or data - 

File marked for deletion 

Read protect against owner 
Write protect against owner 
Read protect against group 

Write protect against group 
Read protect against world 
Write protect against world 

BAC file 

B,V ,vc*j:jf. is privileged 



-r"-£* 



FORMAT OF A LINK IN DIRECTORY 



15 



14 I 13 ! 12 



11 I 10 



8,716 



5 , 4 



3) Blockette byte-offset within 
sector 
Range to 496 ±q in multiples 



of 16 



10 



1) Logical cluster number in the 
file 

Range to 6 

2) Sector offset within the clust 
Range to cluster size - 1 



£~-3J 



PACK STATUS AND OPEN COUNT FOR UNTCNT 



(St 









*-~m 



14 



13 



7fT 








— = 1 non file structured 



J~- -When this bit is cleared to 0, the 
file unit is unlocked. When this 
bit is set to 1, the file unit is 
locked. When locked, no file 
opening is permitted. 
(When a pack is first mounted, it is 
automatically in locked status; it can 
also be locked by the System Manager 
in preparation for dismounting.) 



When this bit is cleared to 0, the file unit 
L_„is public. When this bit is set to 1, the 
file unit is private. 



Count of number of "OPEN" fifes on a 
disk file unit. (This must be before 
the system will allow a file unit to be 
dismounted.) 



-—When pack is mounted., 



Notes on DECtape processing 

1) DECtape file handling. 

A DECtape request to the File Processor causes the 
following actions: 

a) Parameters are set in the DECtape DDB. 

b) The DDB is linked into the DECtape Symbiont queue (DTSQ) 

c) If the symbiont had been inactive, the QDTSYM bit 

is set in L3QUE. 
q d) An exit is made from the File Processor. 

Sooner or later the L3QUE mechanism (extended priority 
arbitration) will start the DECtape Symbiont. 
The Symbiont will obtain needed buffers (directory 

information on BUFF. SYS ) . 
The Symbiont will place the request in the DECtape 
driver queue (DTDRQ) . 
The DECtape driver will initiate the transfer. 
When I/O is complete, the driver causes DTSRET to be 
run a level 3. 
If there are errors, these are passed to the FIP 

function DTSERR. 
If there are no errors, the FIRQB is re-inserted into 

the FIP queue, and FIP SYS is entered. 
If other requests are in the symbiont queue, DTSRET 

sets the QDTSYM bit in L3QUE, causing the Symbiont 
to be rerun as soon as possible. 



£> ser 



Notes on DECtape processing (cont'd) 

2) DECtape directory handling. 

The DECtape UFD (blocks 102,103) and Permanent Bit Map 
(block 104) are copied onto disk when first 
required (into BUFF. SYS) . 

The disk sector number (in BUFF. SYS) assigned to 
a given DECtape drive for holding its directory 
blocks is stored in that drive's DDB+26 (DTDSK0 word). 
Byte 1 (DTDSTS) of a DECtape DDB indicates the status 
of that directory on the disk. 

Bit 15 (DTDSK) is set when the directory on the disk 
represents that of the currently mounted DECtape. 

Bits 14,13,12 are set respectively when the UFD 
no.l, UFD no. 2, or PBM have been altered on the 
disk and therefore need to be written back onto 
the DECtape in their updated form. 
The directory blocks are written back onto the 
DECtape at the time of a delete, a renaming, or 
a CLOSE. If there is an open output file, the 
directory re-writing is delayed until the CLOSE. 

Bit 15 is cleared whenever the Init count (DDB+36) 
of files opened minus files closed becomes zero. 

3) Cautions for users. 

Users can avoid unnecessary repeated re-reads of the 
DECtape directories by keeping at least one 
DECtape file open in the program until the program 
has completed all its DECtape processing. 

When a user mounts a DECtape on a drive, he should not 

ST -.*Z 



Notes on DECtape processing (cont'd) 



assume that the last person who used that .drjLve-- 
under his account closed the last file. It is 
safer to force the system to read in the DECtape 
directory afresh by the command CATALOG DTn:. 
(writes Directory on BUFF. SYS) 



-*= S*' 



DQS/RSTS DECtape Comaptibility 



Problems : 

An improperly closed DOS generated DECtape file (usage and/or 
lock bits non-zero) will print with an invalid protection 
when cataloged under RSTS. 

Restrictions : 

1) RSTS will not allow processing (OPEN, CREATE, or DELETE) 
of contiguous DECtape files. 

2) In processing (INPUT) DOS generated linked DECtape files, 
RSTS will ignore the "partial block" indications. 

3) A RSTS generated (always linked) DECtape file cannot be 
appended to or extended under DOS. 

This means that formatted ASCII linked DECtape files 
(properly closed) are still 100% compatible in the 
following sense: 

1) If I write it under DOS, when I read it under RSTS I 
get the same data. 

2) If I write it under RSTS, when I read it under DOS I 
get the same data. 



$~-3? 



f>i ; .Ci'MfC rUUi^tl yvumpnCllUC' W.-i..ri>y3-H/ 



(UNUSED) 



?0 

71 
72 
73 

IS 

? 

», 

r 

105 



LINKED FILES 



LINKED FILES 



FILE BIT MAPS FOR FILES 1-7 



FILE BIT MAPS FOR FILES 8-14 



FILE BIT MAPS FOR FILES 15-21 



FILE BIT MAPS FOR FILES 22-28 



FILE BIT MAPS FOR FILES 29-35 



FILE BIT MAPS FOR FILES 36-42 



FILE BIT MAPS FOR FILES 43-49 



FILE BIT MA?S FOR FILES 50-56 



MFD BLOCK #1 



MFD BLOCK ff 2 



UFD BLOCK *1 



UFD 2L0CK #2 



MASTER/PERMANENT BIT MAP 



LINKED FILES 



A DECtape has 576, p (-1100^) blocks of 256^ words each (-1000 byt( 

Tho first word in every block of a linked file is a pointer to 
the next logical block of that file. 

(the pointer contains the physical block If of the next logical 
block r it is positive for forward tape motion and negative for 
backward tape motion.) 

The remaining 255,» words are data. 

DECtape directory structure can catalog and map a max of 56 l0 files 

Each File Bit 
Map has 3£ lo wordi 
(«576 |0 bits) 

Each bit maps 1 
block of the 
DECtape. (A set 
bit means an 
allocated block? 
a Clear bit meanj 
a free block.) 

Each File Bit Kaj 
iraps the entire 
DECtapa . 



256.» 
ore 



^%^%^^\ 



LINKED FILES 



MFD BLOC!? #2 
RSTS does not read or check 
DECtape UIC's. 
When zeroing a DECtape RSTS 
enters a UlC of £l. lj. 

UFD BLOCKS 
RSTS ignoras - LOCK Bits. USAGE COUNT, 
and END BLOCK entries in the UFD. 
RSTS checks the "TYPE" bit (bit 15) 
and will not allow a "CONTIGUOUS'' file 
to be OPENed. 

When creating a EECtape file, RSTS v 
a protection code of 233^ (for DOS-] 
compatibility) . But RSTS does not r« 
or cbeck DECtape protection codes. 




*" i 




FILE BIT MAP 


(36 |# WORDS) 


FILE 22 




FILE BIT MAP 


(36,.v;ORDS) 


FILE 23 




FILE BIT MAP 


(36 lo WORDS) 


FILE 24 


25 


FILE BIT MAP 


OG^WORDS) 


FILE 25 


wor 


FILE BIT MAP 


(36 |o WORDS) 


FILE 20 




FILE BIT MAP 


(3G„W0RDS) 


FILE 2" 




FILE BIT MAP 


(36 l# WORDS) 


FILE 28 




(4 WORDS 


UNUSED) 





1st word: 101, (link to MFD block #2) 

2nd word: 4 (interleave factor) 

3rd word: 104 (pointer to 1st Master Bit Map) 

4th word: 104- (pointer to non-existant 2nd 

Master Bit Map) 
252 words unused 



f 1st word: (link to non-^ existent MFD block 

UIC 



up to 63 l9 4-word entries 
ord< each with format shown , 

remainder unused. 



in) 



pointer to UFD 
start block 



of words per 
U FD entry ( = 91 



' 1st word: 103- (link to next UFD block) or 
(end of chain) 



28. file entries 

(max) 

9 words each 

with this 

format: 



* File Type 



3 words unused 



f . vord header 



FILENAME (PART 1) RAD50 


FILENAME (PART 2) RAD 50 


EXTENSION RAD 50 




t 


« • 


CREATION 
i ■ i t • 


DATE 

f * ' * . V, 


_L 


LOCK [+" 


m$ 


START BLOCK # 


LENGTH 




END BLOCK «f* 




1 PROTECTION 
J CODF 


._J 



4T -4? " 



3C (0 word bit map of entire DECtape (a logical 
(OPing of all File Bit Maps) 



RSTS S.W.S. Notes 

update accessing of disk files. 

If a user attempts to open a file in update mode and 

that file has already been opened by someone else in 
normal mode, the system issues a "protection violation" 
message. Otherwise the system proceeds to the next step 

The system then determines the user's read and write privi- 
leges from the user's account number and the file's 
protection code. 

If the job is running in privileged status (as described 
above) , then its privileges are extended to read-&- 
write. 

If the job has, as a result of the preceding, both read and 

"protection violation" message is issued. 



Miscellaneous Note 



^) Basic file structures are imposed 

on disks through DSKINT 

2) UFDs are created only when needed. 

There is a distinct interrupt handler for each type of disk 
A maximum of 5 retries are attempted when a disk error is reported. 
If the error persists after the fourth retry, the operation is 
aborted with an error flag for the caller. 

All five errors are logged. All disk I/O routines are core-resident 
(but not all File Processor routines) . FIP routines are optionally 
resident. 
RP and RK disk driver code optimizes "seeks". 

Distance "which arm travels in "seek" is minimized by picking the 
next operation to be performed on the basis of the cur- 
rent position of the arm. 

Simultaneously a fairness-count is kept for each waiting opera- 
tion lest it wait in the queue indefinitely. 

Thus the selection of the next operation is made on a twofold 

basis: (a) closeness of the operation to the arm's cur- 
rent position and (b) time in the queue. 

3ADB.SYS created at DSKINTIME, catalogs all known bad disk sectors. 
The system will read this file and mark those sectors in the SAT 
as allocated. 
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flTT, MAP 



DIGITAL EQUIPMENT CORPORATION 



RSTS.CIL DESCRIPTION 



BLK #0 



BLK #1 



BLK #2 



BLK #3 



CIL DIRECTORY 
READ ONLY 



DEFAULT PARAMETERS 
R/W 



STARTUP PARAMETERS 
R/W 



INIT 



READ ONLY 



KERNEL MONITOR 

READ ONLY 



OVERLAY CODE 

READ ONLY 



ERROR MESSAGES 

READ ONLY 



BASIC 



READ ONLY 



ODT 



READ ONLY 



ROLLIN 



READ ONLY 



DIAGNOSTIC 

READ ONLY 



Used by Auto Restar 



"Startup Parameters" are in effect for this run only. 

"Default Parameters' are established by the Default establishment 
in reply to the Default option. 

Startup Parameters may or may not be the same as Default. 



&-/ 



T 


■ 


_ 


CIL INDEX 




CIL LINE 


' 
1 

~7 


BOOTSTRAP 


i 
i 

i 

i 

i 

i 

i 

i 

i 


CIL LINE 


-6 

■ I -4 

J -2 

i +0 


"• j x 


11,1] MFD 


i 


CIL CMDj 


BYTE COUNT *** 


BLOCK LOAD POINT *** 


CIL CMD 2 


10J0 (WORDS TO FOLLOW) 


3 (CIL CODE) 


CIL INDEX 






i 


CIL CMD 3 


, ; +2 

! J +4 

! i i +10 

[ ! ' + 14 
i j j +16 

! ' i +2 " 
t j j +22 
J j ! +24 


TIME OF DAY WHEN CIL WAS LAST MODIFIED 


CI 1 
-SY 


t 

t 


TIME OF DAY WHEN CIL WAS LAST MODIFIED 


CIL CMD. 
» 4 


JULIAN DATE WHEN CIL WAS LAST MODIFIED 


CIL CMD, 
** 


LOGICAL BLOCK SIZE OF CIL IN BYTES PER BLOCK 


1 


CI 2 -ER 


# OF CORE-IMAGES IN CIL j 


! 1 
! ^ 


CI -OV 


CIL CMD, 


# OF BYTES REQUIRED FOR CIL INDEX ITSELF 








# OF LOGICAL CONTIGUOUS DISK BLOCKS 
ALLOCATED FOR CIL 


i 






i 


CI 4 

=»ROLLIN 




# OF LOGICAL CONTIG. DISK BLOCKS REQUIRED BY CIL 
§ BLOCK-SIZE SPECIFIED AT +10 WORD 


ci 5 

-ODT 


# OF LOGICAL CONTIG. DISK BLOCKS REQUIRED BY CIL 
S 64JJJ WORDS/BLOCK 


# OF LOGICAL CONTIG. DISK BLOCKS REQUIRED BY CIL 
G 25610 WORDS/BLOCK 


CI 6 

-DSKINT 


' ! ! +26 

! J L__ _ 




CHECKSUM 






CIL CMD 


a 

S 

> 


i -6 
i -4 

i "2 

i +0 

1 +4 
J +6 

' +10 
J +12 
1 +14 
\ +16 
j +20 
1 +22 
j +24 
+26 
l +30 


*** 



*** 


BYTE COUNT (OF WHOLE BLOCK EXCLUDING CHECKSUM) *** 


in 


~~" nr 

BLOCK LOAD POINT 


1 

i 


12^ (WORDS TO FOLLOW) 


3 (CIL CODE) 


PROGRAM LOAD POINT 


# OF BYTES IN CORE- IMAGE PROGRAM 


TRANSFER ADDRESS 


(ODT TRANSFER ADDRESS) 


FIRST LOGICAL BLOCK OF CORE-IMAGE PROGRAM 


PROGRAM NAME (PART 1 - RAD50) 


PROGRAM NAME (PART 2 - RAD50) 


.IDENT VERSION IDENTIFIER (PART 1 - RAD50) 


•IDENT VERSION IDENTIFIER (PART 2 - RAD50) 




TIME OF DAY WHEN MODULE WAS LINKED (PART 1) 




TIME OF DAY WHEN MODULE WAS LINKED (PART 2) 




DATE WHEN MODULE WAS LINKED 




L_ +32 1 


CHECKSUM *** 



* optional 

** in-houaa only 

•*• formatted binary 



W ' W "«H» 



DIAGRAMS 



DIGITAL EQUIPMENT CORPORATION 



i '>g 



I. &EEATION OF 

SvsrtH Element 



1. SYSLO& 

Build ClL OH felSlt 
From LCL. on tapc 



3. OPDoN: bsKiKT 

&EEME Minimum 1ZST5 
File StcuctuEE 



4. OptioM : Refresh 

^Y^tem Files 



51 OptioM* -Default 

Establish Dtmult Stact 
op ?*e*MeTeR3 




kOPTioM*. STAltT 

"I. Buiub System UetAfey 

8. CREATE UsEE. AccTS. 



fcisrfcifcuTiort 
TAPES 



LCL 



CIL cm 



ClL 

J 2 iiEE*i&y Acer 



E 



ALL tf f lF,LCS 
Plus th* Abo^c 




TSfFLetr** in CIL 



LiBlAfty T*fl*s 



?-/ 



MEMORY MAPPING 



RSTS-E 



USER 

JOB #1 
hirtual) 



JOB #1 







PHYSICAL 
MEMORY 




ONLY ONE 
MAPPING AT 
A TIME. 



! JOB>#2 





/ 



/ 



VV 




/ ■ ' , I 
I read / 
only . 



I 



/feASIC+ / 

////// 



JOB#3? 



JOB#l? 



JOB#7? 



JOB#2? 






\ 



AVAILABLE BUT 

NOT MAPPED 



NON- 
EXISTENT 




3, 







KERNEL 
virtual 



7W 77 




• »*• *• • i 



I/O 



o 
w 

H 

N 
w 

Q 
< 

o 

M 

o 

52 

M 
E« 

u 







USER 
virtual 



400 
402 



442 



± 



SP 



KEYWORD JOBF 

'IOSTS 

USER MODEI, 

"FIRQB" 



USER MODE 
"XRB" 



i 



NOT SWAPPED 




1000 



/ ""*0*i — • ' 



MEMORY ORGANIZATION 



KERNEL 
VIRTUAL SPAC 



32K 



KERNEL 
PAR±S 



28K 



24K 



PHYSICAL 
MEMORY SPACE 




I/O PAGE 



NON-EXISTANT 
MEMORY 



JOB # 7 



JOB # I 



JOB # 4 



BASICS- 
RUN 

TIME 
SYSTEM 

MONITOR 



USER 
VIRTUAL SPACE 




jWjW X- W/ *M 



OPERATION OF THE SCHEDULER 



SCHED. 



^OESIDENT? 




NEXT? 

\ N0 

MAIN SCHEDULE 



NO 




BRINGN 

ROOM TO 
BRING JOB IN? 



N* 



YES 



SET NEXT 



BRINGN 

i 

SUB-SCHEDULE 



KICK ANYONE 
OUT? 

(ONLY KICK OUT 
JOBS WITH 



mrrsriitm ft \ 



NO 



i 



RESJOB 



7 \ 

SWAP SET C 

OUT BIT 

\ / 

RTS 



SWAP 
IN 
JOB 



v 



SET 

SVQUNT 
EQUAL TO 
WHAT IT COST 
TO BRING 
HIM IN 



\ 



SQVUNT = (QMUL*SIZE)+ 
QADD 



RESJOB 
START UP A RESIDENT JOB 

IF: 1) TIMED OUT [BURST EXHAUSTED] 

2) DISK STALL 

3) FIP STALL 

THEN: SVQUNT <- (SVQUNT) -(# TICKS RUN THIS RUN) 

IF SVQUNT<0 THEN SVQUNT = 

IF STALL WAS NOT DISK OR FIP THEN SVQUNT •= 

"SVQUNT" IS THE GUARANTEED RESIDENCY 

QUANTAM (RUN BEFORE SWAPPED) IF COMPUTE BOUND. 

SVQUNT = (QMUL * SIZE) + QADD 

[2] + DEFAULT SETTINGS'* [4] 



J 



INTERRUPT HANDLING 



t 



USER 
RUNNING 
current mode= 

user 
Prev. mode= 

user 
Priority = 1 




I/O Interrupt 



T 



Monitor 
Call 



Yes^-s^no 




Signal 

L3QUE 

TASK 



Re-route 
Interrupt 
To User 



1 



Emt. 

Service 

current«Kernel 
Prev. = User 
PRI * 3 



I 



I/O INTERRUPT 



I/O SERVICE 
cur. mode= Kernel 

Prev. mode =? 
Priority=4-7 



r — * ] 

"RTI47" 
. was PREV 
: PRIORITY i 

! > 3 : 



i 



"RTI3" 



RTI 



i no 



i/ 



^ 



RT 1 



are 


there any 


"L3QUE" 


TASKS TO 


RUN 




r xes_ 


no 




1 


r 



1 



^- ? 



RUN 
L3QUE 
TASK 
2ur. mode* Kerb ell 
?rev. mode«"u»|er] 
RI. = 3 




I i 



I/O INTERRUPT 



7-vT 



"FIP" (FILE PROCESSOR) OPERATION 



"SAVJOB" ; SAVE USER JOB 



T1 



ENTER INTO 
"FIQUE" 




JMP "RTI3 



YES 



REQUEST 
PROCESSING 



OVERLAY NEEDED? 
Q I/O (DISK)? 



YES 



NO 



JMP RTI3 



X 



COMPLETE 



SET 

"JBSTAT" 

BITS 



YES 



MORE FIP 
OPERATIONS? 



,NO 



JMP RTI3 



"FIPRET" ; 
QUEUED FIP 
OPERATION- 
COMPLETE 






JOB STRUCTURE 



DIGITAL EQUIPMENT CORPORATION 



USER JOB IMAGE 



PDA Format 



R6 Stack 

(256. rt words) 
1J3 



Rl Stack 



JUCUKb points nete 



Editor Flags, FIRQB with 
programmer name, Core 
Common String, and inter- 
rupt stack data are 
stored here 



("Data Items, arithmetic 
I arguments, & interpre- 
< tative subroutine 

return-addresses are 

stored here. 




SPDA points here 



Impure Data Area 
(variables, arrays, 
etc.) 



+0 

+2 

+4 

+6 

+10 

+12 

+14 



SPTA points here. 



Compiled interpretative 
code. (A "pure" 
area; never modifies 
itself.) 



free header space 



occupied header space 



lower 
addr. 



permanent header space 



ptr to head of string space 
ptr to end of perm.str.sp. 
ptr to end perm, hdr. space 



ptr to end of occ . str . spc 
ptr to end occ. hdr space 



ptr to end free string sp, 
ptr to end free hdr space 



permanent string space 



(BASIC'S system vari- 
ables are stored here.) 



occupied string space 

(User program's vari- 
ables and constants are 
kept here.) 



Free string space 



L.^- 



allow 
to 

ctrl 
ptrs 
(ptr 
"slid 
ing 
"I boun- 
Ldary) 



higher 
addr 



f-/ 



A 



RC 



FT, RC, EC,j 
SC, SO i 



LA 



Lexical 
Analyzer 






TR 



Translator 



ED 



Editor 



RX 

M 

c 

o 

G 



MA 

T 
H 

P 
A 
C 
K 
A 
G 
£ 



TI 


RC 


p«^ 


MX 


p>t v£ 


B 


I 


E 


R 


A 


A 


E 


A 


M 


C 


I 


T 


T 


P 


S 


E 





N 


R 


C 





I 




R 


T 


I 


H 


I 


C 




D 




C 




N 


+ 






t r 


E 


S 


T 








i s 


Q 
^ 


P 


E 










i 

? *T 

% 

i Q 




A 
C 
E 


R 


D 
T 






1 











Optional 



Trvo msntp / TnoimiT \ 



@J0B#*2 



POINTER 



/ ."> 7 ?77 



ARROWS INDICATE POINTERS 



(IOB) I/O BLOCK 



in 

H 



to 

W 






T/1t W*4r 
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YYYDDB 










* 






ZZZDDB 1 






| 






RTSDFT 
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FREEB1 
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bSKObK 



' DSKQDP 



SATPTR 



Pointer to Start of Disk Done Queue j 



RF11/RC11 Disk Queue Start 3. 0S£ ! 
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RKii Disk Queue Start 
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RP11 Disk Queue Start ~> OS <* 






One per Disk Unit. Points to 
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where in the devices SAT to start 



1 looking for free blocks. 
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MONITOR ROUTINE NARRATION 



DIGITAL EQUIPMENT CORPORATION 



flOxen on Small ec Big Buffers 



"he system's Small Buffera are each 16^ worde in length. 

The ayetem'a Small Buffora are uaed for atoring Job and l/o parametere 
and aa l/o data-tranaf er buffera for character-oriented 
devices. 

Every active job uaea two Jmall Buffera: one as Job Data Block 
and the other as Job l/o Block. 

When active, each KB, the PR, and the PP should beat have 5-6 
Small Buffers each, and the LP should have 1$ Small 
Buffers. These serve aa data-transfer buffera. 
(Note — The CK is record-oriented and has its own permanent 
Input buffer at CDRBUF. DT is file-oriented and uses a 
Big system Buffer for its l/o. MagTape and disk use no 
intermediate buffers but transfer directly into/from the 
user's job area.) 

Every open disk or DT file requires one Small buffer as PCB (File 
Control Block). 

Every Pile-Processor request uses a Small Buffer for the FIftQB 
(pile Request Queue Block). 

Every disk-transfer request (except those made by the Pile Processor 
and the Swap manager) uses a Small Buffer for the Disk 
Parameter Block. 
When estimating the number of Small Buffers which a system should be con- 
figured to have, the totals derived from the above facts 
should be moderated by the consideration that not all jobs 
will be active at the same time nor will all devices and 
files be open at the same time. 

The system's Small Buffer pool begins at PRESML. 

when free (not in use), the Small Buffera are linked together in a queue. 

The origin of the queue (i.e. pointer to the first free 

Small Buffer in the chain) is at FREES 

At i««"fi«/» z^i'om (kefore 4m/ kaffrr is <« use) f* r< " look* dice ~H*is . 



FK££S* 




* tt« syrttm h*s L*e„ rurt*i«y, He f**ue my look //£ e #,. 



~~\w-^=-x 



« us« 




Sm * l 3 «fffr km &«gw rehired +o free st+U*, tUt fueue **/ look like tUit 



tftces 



ffraO 
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heading and writing is done by Monitor Code. The part of the 
j-'.er space with I/O Buffer is mapped into Monitor by using 
scratch R6 of PARjT /» ' W/,;# ^ /-? A^'tVA" 

Nr? device can own more than 25% of the system's small buffers. 
3 4 less than 20% of the system's small buffers are left, they 
can't user more than a particular device's quota. 

I/O Drivers us Monitor subroutines to get data. (< », *■,#>.« c ^e^ 2/£^) 

Disk and MAGtape is direct from/ to user area. 

DECtape I/O to Monitor and from Monitor to Userlvia Big Buffers. 

I stall occurs when small buffer limit is reached by device . , . 
^I/O REDO m fs :<*■ ^^c"i &i*>k ^>"e^ t-c^t £<_- +*<*"s&wJ »*«*«**><:<**' j 

User Buffer I/O area in user image is as large as the user can 
make it. A/a y t (f- fc . 

R6 of KISAR is used as scratch register and is used to map 
user space I/O Buffer Area into Monitor Space for DT & LP 

Lo«:*.-fi'«vi ■+- . BYTE count in XRB are used by Monitor to set up 

<xH I/O T+<\ *• i- f*e*$ , 

iAA'* --**<=. *ts<" -<sel /'©<■ E^r's 
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3 Levels of main scheduling 

To reflect 1 Interactive Jobs 

2 # C 

3 Sysf unction to increase quantun for this swap. 

So the Job Table is scanned 3 times before running NULL JOB 

Also have 4 possible swap files which it set up correctly will 
keep most active jobs on fastest swapping device. The slots 
in the swap files are fixed to swap MAX size each. 

Highest priority jobs get lowest swap slot numbers which are 
allocated to fastest swapping device. 

There are 4 swap files & swap MAP in core for each File because 
the RS04 is a UNIT addressable device. 
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SWS NOTES 



RSTS/E 



SCHEDULER 



1006 JOB 



INFORMATION 



Low Core Area Current running job (locked) 



1007 NEXT 



Low Core Area Job to run A.S.A.P. 



SUBJOB 



NXTRES 



Job who was sub-scheduled and 
running because he is in core 
and runnable and the job that 
really should be running is 
being brought in to core. 

Job to be made resident next. 



JOBPTR 



Monitor Con- 
trol Area 



Is Round-Robin pointer to 
job number (s) in job table 



CORPTR 



Monitor Con- 
trol Area 



Is Round-Robin core table sub- 
schedule pointer (next spot to 
sub-schedule) 



CORFOR 



Monitor Con- 
trol Area 



Is Round-Robin core table force 
pointer used to determine who 
should be forced out of core to 
make room for a job that needs 
residence. (Job number for 
Force Out) 



SCHEDULING CRITERIA 

1) Must be runnable. 

2) Highest priority. 

3) Highest quantum (runnable time period) 
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1 Overview of Monitor Functions 

The RSTS/E monitor performs the following range of functions : - 

It manages timeshared jobs by means of a round-robin scheduler 
which selects runnable jobs in order of priority. 

It manages the memory required by swapping jobs in and out of 
main storage. 'Hole' selection for a job is on a best fit basis. 

It performs I/O and other service functions for timesharing jobs. 
The interface is by means of EMTs, XRBs and FIRQBs (Transfer 
Control Blocks, File Request Queue Blocks) 

It performs memory mapping functions for communications and 
transfers between modes 

It dispatches I/O requests from the user? using buffers to enable 
flexible control of tasks not actually involved in data transfers 

Users can handle their own traps. RSTS/E fully supports that 
facility by resuming the job at an address specified in the job 
image at known virtual addresses. 

It will run impure or pure code jobs 

It acts as a communications and scheduling system between the 
following :- 

. USER/Device handlers 

. Device handlers/RSTS MONITOR 

. RSTS MONITOR/USER 

User/file management software 

It handles I/O errors at device levels and supports a log for 
such errors. 

The modules described in this section form the basis of these functions 
and define the essential mechanisms f or RSTS/E, 
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2.5 User/Monitor Interface 

This section covers the parameter and data passing interface 
between a user job and the monitor. There are two main devices: 

Transfer Control Block (XRB) 
XRB is used by the user to initiate an I/O Request and for 
^oiaitor/User data requests. 

File Request Queue Block (FIRQB) 
Each block is 4jZf g bytes long (small buffer) . The FIRQB holds 
f motions in slot FQFUN. A subset of these functions is available 
to the RSTS/E user, and the rest are used by the monitor itself. 
When a FIRQB is set up, EMT CALFIP (EMT 0) is issued which is 
dispatched to FIB. FQFUN then defines the function to be performed 
either by resident or overlaid code. Only relevant parameters are 
needed. 

I . 7 
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This word is checked before a return is made from the monitor to 
the user. Also device handlers and high priority functions 
(levels 4-7) return to the monitor (RTI47) where L3QUE bits are 
checked before returning to the user. If a bit is set in L3QUE 
a corresponding entry in the table of handlers (L3QTBL) is used 
for dispatch to the appropriate level 3 (monitor) routine. 
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"L3Q" LEVEL THREE QUEUE TASKS 



QTIMER 



QFIP 



QSWAP 



QFILE 
QDTSYM 
QDDCON 
QDACON 



once per second - check for 

Hung TTY ' s 

Sleeping JOBS 

Exhausted "KB" waits 

Hung Devices 

"FIP" I/O Completions 

i.e. continue in "FIP" 

SWAP Completion 

i.e. update CORTBL "SWPRET" 

Disk I/O Service Completion 



DECTAPE 



QUECDR 
QBUFSM 

QMTADN P 



QMTACN^ 



Card Done "CR:" 

Small Buffer ALERTER sets "JSNUL" 

; small buffers are now available 



MAGTAPE 



QSCHED 
QBRING 
QFORCE 
QBUF 



Scheduler 

Bring JOB INTO Memory 
Force a JOB out of Memory 
Big Buffer Available 
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2.7 EMTs, Their Identifiers and Dispatch Table 

EMTs are used in order to enter the monitor from a user job to effect 
the same functions normally handled by the monitor. 

See the list of EMTs and the EMT dispatch table 
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2.8 TRAPs and Their Identifiers 

Synchronous traps (in this case TRAP (1)2(4 4 00) plus low-byte code) 
jre Uspatched back to the handler in the RTS defined by P. TRAP. 
•Jh^ handler in the monitor is TRAP00 which simply returns to RTS 
at the address in P. TRAP. 

Many of the traps are used by BASIC-PLUS for error handling. 

Th location of TRAP00 is in Loc 34. P. TRAP is maintained in the 

Pure Code Area Critical Pointers table. 
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2.9 Buffer Requests (IOTs) 

An IOT {00000 A) is used to get and return, big (256. word) and 
small (16. word) buffers from and to the appropriate buffer pools 
The parameters are passed immediately following the IOT. 



/O -// 



2.10 The Monitor Control Area 

Apirt from the low core variables, the monitor requires many data 
r 'lis and pointers for its functioning. These are contained in 
the Monitor Control Area. It contains swapping parameters, Job 
Mapping. Buffer, and Job Status Information. The control area 
is assembled in CSECT MONCTL. 
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EMT SERVICE 



1 Simple 

A) Get Data or perform other operation 

B) JMP RT13 

2 I/O Request 

A) Character I/O (KB, LP, CR, PR, PP) 
set "JBSTAT" = jZf 
set "JBWAIT" = JS??? 
DO TRANSFER 



y Was Transfer Completed OK? 1 

\ 



\ 



*Y es no M 

,,I0E [ XIT " 1. "SAVJOB" 

"JBSTAT" = "JBSTAT" US??? ; set appropriate 2. Set JOB FLAG Bits 

Bits "JFREDO" 

3. JMP RTI3 
JMP RTI3 



B) NPR TRANSFER (DT, MT, DISK) 
JBWAIT = JS??? 
JBSTAT =0 

1. Set up 

2. "SAVJOB" 

3. Position Device and/or wait in queue 

3. "FNDJOB" ; find JOB/bring into core 

4. Do transfer 

5. Set JOB status bits 

"JBSTAT" = "JBSTAT" !JB??? 

6. JMP RTI3 



ob Management and Scheduling 

ii RSTS/E monitor software concerned with job management 
id scheduling falls into the following routines and functions 



Main Scheduling routine (SCHED) 
CORTBL search for a job in core (CORE) 
Find and lock a job into core or initiate a swap 
(FNDJOB) 

Bring a job into core (BRINGN) 
Start (more) swaps if possible (SWAPP, SWAPIT) 
Process swap completions (SWPRET) 

Start a resident job and synchronise flags (RESJOB) 
Force a job to dump itself (FORCEQ) 
Kill a job (KILL) 
Dump the current job ( SAVJOB ) 
The Null Job (NULJOB) 



These routines are described in the following sections. 
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3.1 Main Scheduling Routine (SCHED) 
In RSTS/E scheduling is based on 

i a round-robin scan of jobs (via JBSTAT and JBWAIT tables) 
and 

a priority mechanism for the selection of the next job run 

If the next selected job is both runnable and resident, it becomes 
the next job to run. If it is runnable but not resident, an 
attempt is made to get it into core. This may mean swapping out 
resident jobs in order to make room for the job in question. Thus, 
the scheduling of jobs may entail the initiation of a number of 
swap-outs before the required job can be swapped in and run. While 
jobs are being swapped out and the scheduled job is swapped in, a 
search is made for a resident and runnable job which is then run 
as a sub- scheduled job. If no such job can be found, NULJOB is 
run until a swap is completed, which on completion sets QSCHED IN 
L3QUE 'recall the scheduler. 
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3.2 CORTBL Search for a Job (CORE) 

This routine is called via a JSR PC, CORE with register R0 
ru ding the number (*2) of the job which is the object of the 
Cr'tTBL search. The CORTBL is searched word by word until the index 
in R0 is found in a low-byte. If the whole of CORTBL is searched 
without finding the iob, the N-condition hif ir « e t true and CORE 
returns. If the job is found, CORE returns with the N-bit = 
a* 1 R2 is holding the address of the highbyte of the word 
corresponding to the start of the job in core. 
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3.3 Find and Lock a Job into C ore or Initiate a Swap (FNDJOB) 

This routine first of all calls routine CORE to find the job 
passed on in RjZf as a parameter (job number *2) . If the return 
is negative (the job is not in core) , FNDJOB calls BRINGN to 
initiate the swapping in of the job. If the job is in core, the 
high byte (in R2) of the job's corresponding CORTBL word is tested, 
and if non-zero, routine BRINGN is called to initiate the swap-in, 
if the swap-in bit is not already set, then FNDJOB just exists to 
RTI3, where the L3QUE flag word is set with the flags passed on in 
the FNDJOB call in R3. 

If the CORTBL high-byte on return from CORE is zero and the 
job is resident then COROFF is called to compute the real address 
(mapped into two words, MAPHI and MARLOW which are stored in the 
Monitor Control Area) . On return from COROFF, R2 still points to 
the CORTBL entry (high byte) for the start of the job, and the 
lock bit(LCK) is set in the high byte for all CORTBL words holding 
the corresponding job slot. FNDJOB then returns (RTS PC) . 
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3.4 Bring a Job into Core BRINGN 

"RINGN is called via JSR PC, BRINGN with R0 by holding the job 
number (*2) for the job to be brought (swapped) into core and R3 
h »lds the L3QUE bits to be set when the job is made resident. 

RtiTNGN inif-.iat.es the swapping out. of johs to make room for the 
swa^ped-in job (in R0) or, if this is not necessary, finds a 
1 ole in core (smallest one that will accomodate job) and initiates 
a swap into the hole. 

An entry point in BRINGN iS BRINGQ which is the entry point on 
dispatch from L3QTBL when the QBRING bit is set in L3QUE.- 
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j. d start wore swaps <jOJ.ng ±r rossipie \pwArr, pw/uriT; 
This routine logically falls into two phases; 

1. A search through CORTBL for jobs whose SWP bit is true, 

2. The setting up of a DSQ (disk request queue block) and 
initiation of the swap for the job (IN or OUT depending 
on the IN or OUT bits) . This is followed by a return to 
phase 1 to seek for more jobs to swap. 

This routine is a job housekeeping utility called on swap 
completions (SWPRET) and when jobs are brought into core by 
BRINGN. 

TAe CORTBL search has three entry points :- 

1. SWAPP - which pushes#RTl3 on the stack as the return address. 

2. SWAP - immediately following SWAPP, calls REGSAV to save the 
caller's registers, 

3. SWAPLP - after SWAP. As the name implies it is a loop 

return from SWAP IT (phase 2) , and also is an entry 
point from BRINGN wh/'ch has already saved the 
registers. 

Since SWAP references many data items, these are explained in 
the following subsection. 
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1,6 Process Swap Completions (SWPRET) 

nitially SWPRET checks SWDONQ, the queue of DSQ's of completed 
swaps. If the queue is empty then SWPRET calls SWAPP which seeks 
out and processes swaps. If a DSQ for a swap return is on the 
SWDONQ queue, then it is accessed to get the job index for the 
job from DSQJOB. If the job has been swapped out, then this slot 
is z«ro- nthprwise it holds the index of the swapped in job. 

If the slot is non-zero, a check is made on DSQERR in the DSQ. 
If an error is indicated, then the JFSWRR bit is set if the job's 
JDFLG slot is set true. From the DSQJOB, the job index allows 
access to JOBTBL to get the address of the job's JDB. The JDSIZ0 
(current size of job in K) is set equal to JDSIZl, the swapped-in 
size. 

DSQMSC slot of the returned DSQ holds the high byte of the job's 
CORTBL entry. If the job has been swapped-in, this is the current 
CORTBL entry, whereas if swapped-out, it holds the previous entry. 
From this byte, the type of swap (IN or OUT) can be ascertained 
from the appropriate bits. If the swap was 'OUT', SWAPF is decre- 
mented. SWAPF is a count of pending swaps OUT. Then, whether the 
swap was IN or OUT, the high bytes for the job's CORTBL entries are 
cleared. If the swap was out, then the low bytes (job index) are 
also cleared. 

CLRSWP is called to deallocate swapslots after swaps in. 

If the DSQ was SWAPAR (the fixed swap DSQ) then SWPRET branches 
back to the beginning to process further swap returns. If the DSQ 



3.6 Process Swap Completions (SWPRET) (Cont'd) 

was a small buffer from the pool, then IOT (BUFFER RETSML) is 
effected, returning the DSQ to the small buffer pool. Then a 
loop is made back to the beginning. 
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3 . 7 (RESJOB) Start Resident Job and Synchronise Flags 

RE* JOB is called with R3 holding the job index (job number *2) . 

r ' £- is used to enter JOBTBL. The low core job management data- 
in se (JOBDA, JOBF, IOSTS, JOBWRK, and JOBTIM) is accessed. The 
tune used by the job (JOBTIM) is cleared. 

routine uswaAJf is called to map the job on the user ±*age Address 
Registers and set the stack pointer to SYSTAK. If the JFKILL bit 
ic set in the job's JDFLG slot of the job's JDB, then a jump is 
made to KILL to kill the job. 

If neither JFSWRR nor JFIRST bits in JDFLG are set, then the job 
is to continue where it left off. Therefore RESJOB branches to the 
'return-to- job' code. Otherwise, RESJOB, enters an area of code 
in which the appropriate re-entry point to the RTS is found. 

If JFSWRR (swap error) is true, RESJOB branches to 11$, where 
the re-entry point is set to P. BAD, the RTS bad- job entry point. 

DIOST (I/O status slot in JDB) is set with the B.SWAP (bad-swap) 
b ; t. If the job has caused a stack error, (from JFSTAK-bit in 
JDFLG), then B.STAK is also set true in JDIOST. After this the 
routine enters the general job return code (10$) . 

In 2$ if the JFCRAS, JFRUN or JFSTRT bits in JDFLG are true then the 
return addresses are set to P.CRAS, P. RUN or P. START appropriately. 
The general job-return code is then entered (10$) . Even if none 
of these bits is set in JDFLG. 
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3.7 (RESJOB) Start Resident Job and Synchronise Flags 



At 10$, the JDFLG2 bits are cleared, and then routine MAPRTS is 
called to map the run-time system onto the Page Address Registers, 

The user's PS is set up. This is pushed on the stack along with 
dummy registers (R0-R%) . The return address (PC) is then pushed 
on the stack. The job index is given to the user in the FIRQB at 
FQJOB. 

If the return address is P. BAD (a bad job) then a branch is made 
to code which just returns to the RTS at the entry point. 
Otherwise the user's error flag work (KEY) is cleared, and the 
old register values restored along with resetting the floating 
point processor (FPP) if necessary. The stack pointer is then 
set up. 

The QSCHED bit (schedule) is cleared from L3QUE to indicate 
that the scheduling request has been processed. Then RESJOB 
returns by jumping to RTI3, the general level 3 return. 
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3,9 Kill a job (KILL) 

v-ILL is jumped to from RESJOB if the JFKILL bit is set in the 
,«FLG2 byte of the resident job's JDB. 

Initially, KILL clears the JBSTAT word for the job so that 
it is non-runnable, and the JSFIP (waiting for FIP completion) 
bit is set true in the job's JBWAIT word. Setting the JBSTAT 
word to zero makes the job non-runnable since the scheduler 
runs a job when the logical 'and' of its JBSTAT and JBWAIT 
words is non-zero. The JSFIP bit is set true since killing 
involves a queued file service (FIP) request to clear out 
any pending 10 requests... I/O rundown. 

If the file service request has already been made (JFKIL2 bit 
set in JDFLG) then KILL branches to the clearing up house- 
keeping at 10$. (KILL immediately). 

If the JFKIL2 flag is not set, then it is set and JFHIBY and 
JFPRIV bits are set in the job's JDFLG. 

JFHIBY means that the job is in a critical state and JFPRIV 
means that it has permanent priveleges. 

The job's work block is accessed and used as a FIRQB in 
which is placed :- 

the job's number (*2) 

the clean-up function (UUOFQ) 

the channel slot is set to +5 as a code for logging out 

the job. 



3.9 Kill a job (KILL) (Cont'd) 

Routine UNLOCK is called to unlock the job from core. 
Routine SAVJNL is called to set up NULJOB to run and dump 
current job. 

. KILL then jumps to FIPSYS in FIP which then processes the 
request defined by the FIRQB. just created. 

At 10$ the immediate kill entry which is branched to within 
kill if JFKIL2 is set) the following routine actions are 
carried out:- 

Priority is switched to 7 to prevent any interrupts 

Mode is switched to Kernel mode 

If the job is not already detached it is then 

detached (DDJBNO slot in terminal's DDB cleared) 

CORE is called to find the job's entry in CORTBL 

The job's entries in CORTBL are cleared 

The job's JOBTBL entry is cleared 

SAVJNL is called to set up null job and clear the 

current entries for the job 

The IOT BUFFER is effected with parameter RETSML to 

return the JDB and WORK blocks for the job 

The job count (TOBCNT) is decremented 

and a jump is made to RTI3 for return and reschedule. 



/o-js- 



3,10 Dump the Current Job (SAVJOB) 

This routine dumps the current job and optionally saves the 
job's quantum. 

. At SAVJQX (an entry point prior to SAVJOB) a check is made 
on whether the current job is non-null 

Otherwise, At SAVJOB, if the current job is non-null, the 
current quantum is destroyed for the job (SVQUNT) 
If the current job is NULJOB, then SAVJOB branches to SAVJNL 
UNLOCK is now called to unlock the current job from core 
The JFCODE bit in the job's JDFLG work of its JDB (pointed 
to by JOBF) is tested 

If JFCODE is true then the job is running impure code (not 
BASIC-PLUS) then the JFFPP (save/restore floating point unit) 
bit in the job's JDFLG is cleared, otherwise the JFLOCK 
(lock job in core) bit is also cleared 

The user's key word (KEY) - flags to be set on re-residency 
or running - are moved into the job's JDFLG slot in its JDB 
The user's stack pointer is checked and if it has not overflowed, 
the current user's registers (which have already been pushed 
on the kernel stack) are popped onto the user's stack 
If the user's stack has overflowed into the stack save area, 
the JFSWRR is set in the job's JDFLG to signify a swap error 
(something wrong with the job) 

The JFSTAK (stack overflow) bit is set in the job's JDFLG2 byte 
of the JDB 

Then the user's registers (SP,R0 RS,PC,PS) are pushed on 

the user's stack 



3.10 Dump the Current Job (SAVJOB) (Cont'd) 

. Routine MONFSV is called to save FPP status if required 

. Routine SAVTIM is called to save timing and core utilization 
information 

. SAVJNL is then entered to set up the null job. The stack 
pointer is set to the system stack, the monitor data cells 
JOB, QUANT are cleared and bit QSCHED is set in L3QUE to schedule 
another job and then a jump is made to the caller's return 
address 

. Routine SAVTIM is in the SAVJOB module 

. SAVTIM computes the accumulative KCTs (Kilo-core ticks) from 
JOBTIM (CPU time) and JDSIZ0 from the JDB (current size of job) 

. If the job is detached, SAVTIM returns 

If not detached (by accessing terminal DDB from JOBDA slot in 
monitor data area and then looking at DDJBNO slot of DDB) then 
the time at which the job was attached to the terminal is 
found from DDTIME in the DDB and corrected for midnight if 
necessary. This is then added to the total in JDCON slot of 
the JDB. SAVTIM then returns. 
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3.11 The Null Job (NULJOB) 

This job runs when no other user job is running. It displays a right 
v- left movement of lights on the 11/45 data paths display. 
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4.0 core and Memory Management Routines 
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4.1 Monitor core manager expander/shrinker (CORE) 

This routine is dispatched to from EMTTBL as a result of a 
user EMT .CORE. 

The caller's XRB holds the parameters of the call. The new core 
size requested (in K words) is passed at XRB+0, with the 
restriction that it is non-zero and less than or equal to 
C.ORMAX. 

If room is available for expansion or if the size is less than 
its current siBe, CORTBL is mapped accordingly. If the expansion 
cannot be carried out, then the job is swapped out and brought in 
again with the new size. On exit, if IOSTS is zero then the new 
size was effected, otherwise the new allocation was not carried 
out since the request was in error. 

CORE, first of all gets the new size from the user's 

XRB+0 slot. 

IOSTS is set non-zero in anticipation of error. 

The job's JDB and RTS blocks are accessed (via JOBDA, 

and the JDRTS slot of the JDB respectively. 

Via the R.USIZ ENTRY in the RTS description Block, 

CORE, checks that the request is not bigger than 

the maximum for the job. If it is then CORE, again exits 

to RTI3.4 indicating an error in IOSTS. 

Otherwise IOSTS is cleared. 

Via JOB (job slot) the job;s slot is accessed and routine 

CORE is called to locate the job in CORTBL. 

to » 3 a 



4.1 Monitor core manager expander/shrinker (CORE) (Cont'd) 



The JDSIZ1 (new size) slot is set in the JDB to the requested 

value . 

If an expansion is required then CORE, branches to 3$. 

If the request is less than the present size, then CORE. 

enters 1$. If same 2$. 

At 1$, CORE, clears the extra CORTBL entries, and then enters 

2$ where USRMAP is called to remap the user, and a test 

is made to see if changing RTS. If so, go to Res job entry 

SAUJQX If not, exit via RTI3.4. 

At 3$ (processing core expansions) CORE, checks to find 

whether there, is free space to accommodate the new size. 

If there is then CORE, re-enters 2$ and again calls USRMAP 

to effect the new mapping and jumps to RTI3.4. 

If there is not enough room for expansion, CORE, gets the 

job's current size (JDSIZ0) and saves the current CORTBL 

pointer. Then it sets the SWP and LCK bits for all CORTBL 

entires of the job and branches to SWAPP to initiate 

the swap. 
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1 2 Map a job into user space USRMAP 

The function of this routine is to set up the user Page Address 
P gisters(PAR) to map a job. 

The job slot is obtained from JOB. 

Routine CORE is called to find the start of the job in CORTBL. 

On return it starts a loop which sets the LCK bits true in the 

CORTBL entries for the job. 

From this, the number of entries for the job are computed, so 

the job size is known. 

Since CORTBL maps 1 word for IK words of store for all physical 

store, then the following computation sequence gets the entry 

for PAR0 for the user:- 

Let the offset in CORTBL for the job start (on a IK 

boundary) =» x. Then x = number of K (words) *2 (i.e. 

the byte address in K) . 

There are 16. blocks of 64. bytes in IK bytes. 

Hence, since PAR address in units of 64. byte, then 

x*16. gives the appropriate PAR entry. 
. USRMAP, therefore, from the CORTBL entry computes the entry for 
PAR0. If the job exceeds 4K (words) then PARI is set equal to 
PAR0 + 200 (20000 = 4K) and so on. 
. Also, the associated descriptor registers are updated (length = 

8K bytes and access = R/W) . 
. Finally, the job's flag word (JDFLG) is tested, and if negative 
the job is running impure code and therefore there is no run-time 
system to map into the user's PARs and therefore USRMAP returns, 
If code is pure USRMAP enters MAPRTS . 
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4 . 3 Map a run- time system (MAPRTS) 

If a job is associated with a run-time system (resident library) 
then this is mapped from PAR7 downwards. 

. From the job's JDB, the RTS description block is accessed. 
. From the R.CPTR entry in the RTS block, the CORTBL offset for 

the RTS is found. 
. From the R1KCT slot of the RTS block, the size of the RTS in K 

words is given (no. of CORTBL words) . 
. In the R. REDO slot of the RTS block is the 4K description 

pattern for the descriptor xegisters of the map. 
. MAPRTS then simply uses R.CPTR*16. as the PAR7 entry and loads 

R.REDO into the descriptor register 7. 

It then backs up to PAR6 and places PAR7-200 there (4K less) 

and so on until the last entry, when the actual descriptor 

is used. 
. MAPRTS then returns. 
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4 4 Scratch memory mapping for core-core transfers (SCRMAP) 

At the start of this routine MAPHI and MAPLOW are already set up 
as the most and least significant parts respectively of the job 
.: cart. (The real address) . 

SCRMAP is entered with R5 holding a user's virtual address . 

he job of SCRMAP is to point the kernels PAR6 at the same real 
address as the user's virtual address in R5. But in V5C +V6 
RSTS/E PAR6 also is used to point to monitor code at the proper 
time . 

Therefore SCRMAP does the following :- 

It moves MAPHI into R4 (in preparation for R4/R5 double length 

register) . 

It adds MAPHI to the virtual address in R5 and any carry to R4. 

Hence R4/R5 now holds the real address of the virtual address 

in R5. 

The combined register is shifted left 6 bits (divided by 64. to 

give a byte address on a 64. byte boundary). 

R5 now holds a valid PAR address which is then loaded into 

the kernel's PAR6. 

The descriptor register 6 of the kernel is set to 4K and R/W. 

Now, before R4/R5 was shifted left 6 bits (don't forget the 

remainder) , R5 had been pushed on the stack. 

R5 is now restored from the stack and all but the lowest 6 bits 

are cleared. 

so -3 */ 



4.4 Scratch memory mapping for core-core transfers (SCRMAP) (CONT'D) 

. Therefore by adding 6*20000 to R5 we have in R5 the correct 
virtual address in kernel space for the user virtual address 
passed to SCRMAP. 

. SCRUMP has been appended to SCRMAP to handle . Remap ing into 
kernel window. 
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4.5 Compute real address (COROFF) 

This routine computes a double length real address of a job start 
from its CORTBL entry (K address in bytes) . 

The offset within CORTBL is found from R2 (which arrives 
holding the job's CORTBL entry), leaving the result in R2 . 
Hence R2 is moved to R3 in preparation for treating R2/R3 as 

a double length register, and is then multiplied by 1024 . 

10 
(2 ^) to give the byte address. 

The least significant part (R3) is moved to MAPLOW. 

R2 is shifted left 4 bits to give some free bits (don't ask me 

why) and loaded into MAPHI as the most significant part of the 

real address (*16. of course). 

COROFF then returns. 
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This 'routine 1 is the line clock or KWII-P handler depending 
upon the system clock. 

It is activated at line frequency (Go CPS standard) . 
The time currency in RSTS/E is the system tick (1/10 second) . 
. The WAITNT (wait for a system tick) bit is set in L3QUE to get 
the system to wait until 1 system tick is up. 
If a second has just passed, then the number of ticks to next 
second (in TIMCLK) is reset to equal the line frequency, and 
the QTIMER bit is set in L3QUE to schedule the timer service 
(TIMERS) . 

If a minute has passed, the number of seconds to the next minute 
is reset. 

If a day has passed (144)? . minutes) a new day is counted and no 
minutes to next day reset. 

JOBTIM (ticks used by current job is incremented) and the amount 
of his quantum remaining (in QUANT) is decremented. 
If the quantum has expired then QSCHED is set in L3QUE to 
effect a reschedule and QUANT is cleared. 
CLOK0 then jumps to RTI47 the common 'handler* return. 
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♦ I/O Subroutines 

.- ?e routines are I/O housekeeping and checking routines for the 
Ri. I/O interface (i.e. non file structured I/O) . 
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5.1 Routine to set status bits in JBSTAT on I/O completion (IOFINI) 

It is called with Rl pointing to the DDB of the device concerned, 
and the address after the call (JSR R5, IOFINI) holding the required 
JBSTAT bits to set. 

From this the corresponding job number is obtained from the 

DDJBNO slot in the DDB. 
. The number is then used to address the JBSTAT table and the 

bits in the word after the IOFINI call are set in the 

appropriate JBSTAT slot. 

IOFINI then returns. 
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5.2 Transfer a character from the user buffer (TTYS20 and TTYS30) 

At TTYS20 the current buffer address in user space (passed on 

in R5 at XRLOC in the XRB) is obtained. The current character 

(XRLOC points to it) is loaded into R2 . 

The PS priority level is raised to 5 with kernel-mode new and 

user mode-old bits set. This px.events ielcvdiiL iuLcrrupuo. 

TTYS20 then returrs with R2 holding the character. 
. On calling TTYS30, if the C-bit is set then an error has been 

detected by the caller. 
. R5 is pointing to the user's XRB at XRLOC the current fcyte in 

the user's buffer. 

Priority level is set to 3. 

If the C-bit is not set then the buffer address is incremented 

and the byte count decremented for the user in the XRB at 

XRLOC and XRBC respectively. 

TTYS30 returns. 

If the C-bit is true, then TTYS30 dumps the saved PC from the 

stack, and starts an I/O retry at IOREDO, described in the next 

section. 
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5.3 Re-effect I/O routine (IOREDO) 

. IOREDO sets the JFREDO flag in the jobs JDFLG word 

. Calls SAVJOB to dump the job. 

. Jumps to RTI3, the common level 3 exit. 
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5.4 Exit from I/O completion (IOEXIT) 

The job slot is obtained from JOB and the bit the job is 
waiting for (in its JBWAIT word) is set in the corresponding 
JBSTAT word. 
IOEXIT then branches to RTI3 to exit. 
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5.5 Response to EMT .SLEEP (SLEEP) 

SLEEP, is dispatched to form the EMTTBL 

The job slot is obtained from JOB. 

The entry in the user's XRB + slot is obtained (being the 

sleep time in seconds) and entered into the job's JOBCLK entry. 

If the sleep is zero, SLEEP, immediately exits to RTI3. 
. If the sleep is non zero, the JBSTAT word for the job is cleared 

making it non runnable. 
. The job's JBWAIT slot is set to JSKEY and JBWAIT bits. 

SAVJOB is called to dump the job and 

SLEEP, then jumps to RTI3. 
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i character transfer from buffer pool to user (CHRUSR) and (CHRU01) 

jn calling both (JSR R0 , CHRUSR or CHRUJ01) Rl holds the 
devices DDB address add R5 points to the user's XRB at 
the current buffer address at XRLOC. 

At CHRUSR :- 

The PSW is set to priority 5 to inhibit relevant interrupts. 
Routine FETCH it called to get a character from the buffer pool 
(placed in the current position (FP) offset to DDINP in the DDB) . 
On return from FETCH the priority level is set to 3 again and 
the C-bit is set if no more characters are available. 

If this is the case, CHRUSR exits, otherwise it enters CHRU01. 

At CHRU01, the character is moved into the user's buffer, the 
byte count incremented and the buffer address. If the byte 
count has now exceeded the buffer size (in XRB) then CHRU01 
returns to the address given after the call if no user buffer 

room left. 

If there is more room, then CHRU01 returns to the address 

given by the caller after the call. 
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5.7 Check availability of buffers (FREBUF) 

At the call Rl points to the appropriate DDB. After the call is 
the Byte Count Fudge Factor. 

It traces through small buffers from FREES (small buffer pool 
head) , until enough have been found to accommodate request. 
FREBUF also checks to see if device has reached its quota yet 
as well as whether or not enough buffers are free to exceed 
quota to 24% of system total. If not enough can be found, the 
C-bit is set and FREBUF exits. 
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5 . 9 User I/O EMT interface (USERIX, USERIO) 

USERIX is entered from RTI3 for re-doing of 10 

USERIX tests the JFGO bit of the job's JDFLG word. If true, 

it exits to RTI3 at RTI03, to effect the force. 

If the job hasn't been forced out, it drops to level 3, clears 

the I/O re-do bit in JDFLG. Accesses the XRB and obtains the 

tunction (read/write; from xrci+1 in the xkb. 

It then enters ULERIO at USERI1, missing out on moving of 

XRB into the job J s work block by MOVXRB. 

USERIO is dispatched to from EMTTBL on EMTs .READ and .WRITE 

and then, dispatches itself to the appropriate handler. 

On dispatch from USERIO the following contain :- 

R0 = 2 for read and 4 for write (access having been verified) 

Rl = address of DDB or FCB 

R2 = handler index (to access handler tables) 

R3 = pointer to XRB (at XRLEN) 

R5 = byte count pointer (XRB at XRBC) 
. At USERIO, MOVXRB is called to move the XRB into the job's 
work block. 

The channel slot is got from XRCI in the XRB. The job's IOB 
(10 block) is entered at the channel slot to get the corresponding 
DDB or FCB address. 

If the channel is closed, the error status slot JDIOST in the 
job's JDB is set with bit N0T0PN- and USERIO branches to RTI3. 
If the channel is open, then the legality of access is checked 
against the DDSTS slot of the devices DDB. I.E. you cant read 
from an output only device and vice-versa. 

If access is invalid then bit PRVIOL (privelege violation) is set 
in the job's JDIOST slot in its JDB. 
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If access is valid, then the handler index is obtained from the 

DDB or FCB* 

The handler index is used to set the corresponding bit in the 

job's JBWAIT word, with the corresponding bit in JBSTAT being 

cleared. 

The handler index is then used to enter SERTBL (the table of 
handler addresses) and USERIO dispatches to the appropriate 
handler from the appropriate SERTBL entry. 
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6.0 Notes on the File Processor 

General Functions of FIP. 

1) opens & closes 

a) files (initializing & maintaining file structures) 

b) non-file-structured devices. 

2) has facilities for executing non-resident system code 

( — hence it handles certain pieces of the compiler 
and RTS code) . 

FIP runs asynchronously from the rest of RSTS 
-has its own stack 
-has its own date base 
-runs at level 3 
-is started by EMT calls 

-is restarted froiu level 3 queue on disk I/O completion 
-serves one job at a time. Each request must be completed 

or reach an error condition before the next is begun. 
As FIP completes the service for each request, it scans 

its queue (orginating at FIQUE) and starts the next 

request if there is one. 

When a user job requests a FIP service, 

1) the request is placed in the FIP queue (originating at 

FIQUE) , 

2) the job goes into an I/O wait state for FIP. 

Normally such a job can be swapped out, but a few 
FIP requests cause a job to be locked in core. 



Notes on the File Processor (Cont'd) 



The FIP queue is a chain of FIRQBs (File Request Queue Blocks) 
originating at FIQUE. 

Each FIRQB specifies the parameters for a FIP request. 
When FIQUE = 0, FIP is no longer busy. 

FIP uses 2 buffers of 256 words each. 

1) FIBUF is a directory buffer. 

2) FIPBUF is a buffer for non-resident code. 

Typical steps in executing a FIP request: 

1) initialize FIP's in-core data base. 

2) if non-resident code is needed , read code module 

into FIPBUF. 

3) dispatch to function handler. 

4) set completion and/or error flags. 

5) check FIQUE; if there is a next request, branch to it 

6) exit to RT13. 

Approximately 5/6 of FIP is non-resident, swapped in as needed. 

Notes on data errors: 

1) There is no software error detection (such as 

checksumming) . 
The only errors reported in data are those detected 
by the device controllers. 

2) Data transmitted to a hung device is lost. 
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STRING HANDLING 

processing strings, it is essential to arrange the program 
c as to avoid "garbage collection". Note that garbage collection 
••■"ips the job o-t and in again. 

ne technique is to pre-assign all strings to their maximum length 
using the SPACE$ function and then use LSET and RSET to assign 

ijs. A variation of this technique is used by EDIT. 
A data bufi^r Is defined by opening a dummy keyboard file. 
Then data is moved within the buffer by one of FIELD, LSET, and 
RSET statements. For example, to insert text into the middle of 
the buffer, the program acts as follows: 

1000 FIELD 7*B%, D% AS B0$ , Z% - D% AS B0$ : 

FIELD 7*B%, D% AS Bl$, D8% AS Bl$ , Z% - D% AS B2$ 
The data buffer now has the following structures 



D% 



T 



B0$ 



l'< - D% 



D% 



Bl$ 



D8% 



B2$ 



Z% - D^ 



] 



We may now insert the string D8$ (length 

1100 RSET B2$ = B0$ : 

LSET Bl$ = D8$ : 

Z% = Z% + D8% : 

D% = D% + D8% 



:%} by the statements 
move what follows 
move in insertion 
Z% is total length 
D% is length up to 
end of insertion. 
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STRING HANDLING (CONT'D) 

To define the buffer, the program first executes: 
100 B% = 2% : Z% = 50% * 74% : 

OPEN "KB:" AS FILE B% , RECORDSIZE Z% 
\s an example of three string-handling algorithms, consider 
the problem of truncating trailing blanks from a data record 
(for example, a card image) . The two functions take as input 
any string, returning the same string without trailing blanks 
and CR-LF. The program segment performs the same function within 
an input buffer. 

The slowest algorithm succesively reassigns the argument until 
it ends with a non-blank: 
1000 DEF FNT$(X$) : 

X$ = LEFT(X$, LEN(X$)-1%) 

WHILE RIGHT (X$,LEN(X$) ) <= " " 
AND LEN(X$)> 0% 
1010 FNT$ = X$ 
1020 FNEND 

Results: 113 sec. clock, 18.6 sec. cpu time. 
The following is much more efficient. It scans backwards until 
a non-blank character is found. Only one assignment is made. 
2000 DEF FNT1$(X$) : 

GOTO 2010 IF MID(X$,X%,1%) > " " 

FOR X% = LEN(X$) TO 0% STEP -1% 
2010 FNT1$ = LEFT(X$,X%) 
2020 FNEND 

Results: 9 sec. clock, 6.0 sec. cpu time. 

The most efficient algorithm uses the data buffer directly, 
avoiding the assignment caused by function calling and the 



STRING HANDLING (CONT'D) 

final assignment at line 2010 above. (L% is the record length.) 
3000 FOR K% = L% TO 1% STEP -1% : 

FIELD 7*2%, K%-1% AS L$, 1% AS L$ : 
IF L$ > " " THEN 

FIELD ?*2% , K% AS L$ : GOTO 3020 
3010 NEXT K% : LSET L$ = "" 
3020... 

Results: 7 sec. clock, 7.0 sec. cpu time. 
Note that the more efficient algorithms are much more cpu-bound, 
showing that they are doing much less swapping. 

Use of INSTR to scan a text. 

Assume that a text is stored in the string S$ in the following format 

"wordl word2 word 3 " 
i.e. each word is followed by exactly one blank. A blank even 
follows the last word in the string. 

The subroutine at line 1000 is executed once for each word. 
The word will be in W$. 

note the following 

W$ the word to process 

Ll% points to the first byte of the word in S$ 

L2% points to the blank following the current word 

100 L2% = 0% Unitialize for first 

200 Ll% = L2% + 1% IL1% -> first byte 

300 L2% = INSTR (L1%,S$," ") !get trailing blank 

//-3 



STRING HANDLING (CONT'D) 

400 IF L2% 

THEN W$ = MID(S$,L1%,L2%-1%) : 

GOSUB 1000 : GOTO 200 1 found, process it 

500 ! nothing left in S$ 



//-^ 



TIMING 

The built-in functions TIME, TIME$, and DATE$ may be used 
to time programs. Note that the following subprogram will be 
complex if the program may run past midnite. To use these 
routines, execute 

GOSUB 20010 to start timing 

GOSUB 20000 to print the clock and 
restart timing. 

20000 T0 = TIME(0) - T0 : Tl = (TIME(l) - Tl)/10« : 
PRINT T0; "clock time", Tl; "run time"; : 
IF T0 = 0.0 THEN PRINT 

ELSE PRINT , T1/T0; "ratio" 

20010 T0 = TIME(0) : Tl = TIME(l) ; RETURN 
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'-1STS ~ STATEMENT HEADERS 

' ,CH LINE-NUMBERED STATEMENT CONTAINS A 12-BYTE HEADER, USING 
LTIPLE STATEMENTS CAN SAVE MUCH SPACE. FOR EXAMPLE, 

100 X = 

110 Y = 1 

120 Z = 2 
SHOULD BE WRITTEN 

100 X = : v = 1 : Z = 2 
THIS WILL SAVE 24 BYTES. 



NOTE, HOWEVER, THAT CERTAIN STATEMENTS ALWAYS HAVE A HEADER — 
EVEN IF NO LINE NUMBER WAS WRITTEN. THEY ARE: 



DEF 

FNEND 

DATA 

FOR 

NEXT 

DIM 



SINGLE- OR MULTIPLE-LINE 



REQUIRES TWO HEADERS, ONE BEFORE AND ONE AFTER 



THUS 

100 S = : FOR I - 1 TO N : S = S + X (I) : NEXT I 
IS EQUIVALENT TO 

100 S = 

110 FOR I - 1 TO N : S = S + X(I) 

120 NEXT I 
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RSTS — CODE GENERATION 

RSTS COMPILES THE BASIC PROGRAM INTO SINGLE-BYTE CODES. THE 
VARIOUS COMPONENTS OF A STATEMENT HAVE THE FOLLOWING LENGTHS: 

12 STATEMENT HEADER (FOR EACH LINE -NUMBER) 

1 STATEMENT END 

1 OPERATOR (+, -, MATRIX OPERATORS, ETC.) 

3 CONSTANT OR VARIABLE- 

1 CONVERSION (EXCEPT THAT A = B% REQUIRES NO CONVERSION) 

4 FUNCTION 

6 USER-DEFINED FUNCTION 
3 INDEX 

ALSO, ONE EXTRA BYTE MAY BE GENERATED TO FORCE THE LENGTH TO AN 
EVEN NUMBER OF BYTES. FOR EXAMPLE: 
100 1% = A + B * SIN(C(X)) 
12 3 3131 433 

1 (FOR CONVERSION TO INTEGER) 
3 (FOR INDEXING) 
TOTAL =37 BYTES. 

NOTE THAT A TEMPORARY VARIABLE MAY BE USED TO SAVE VECTOR ADDRESSING: 
100 FOR 1% = 1% TO N% : 

S = S + X(I%) : S2 = S2 + X(I%) ft X(I%) f 42 BYTES 
110 NEXT I 
BUT 

100 FOR 1% = 1% TO N% : 
T = X(I%) : 

S = S + T : S2 = S2 +. T * T i 12+24 BYTES 

110 NEXT I 
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-'"S — VARIABLE STORAGE OPTIMIZATION 

; -\CH DISTINCT NAME REQUIRES 4 BYTES PLUS THE NUMBER OF BYTES 
i-KfcUIRED TO STORE THE DATA. IN ADDITION, EACH DISTINCT 
"i iRSa dAME" REQUIRES 2 BYTES. 

F, ir%, F#, FNF, FNF% , FNFg, F(...), F% ( . . . ) , F$ ( . . . ) 
EACii HAVE THE SAME FIRST NAME win-m 

F AND Fl OR F AND G 
Dl JOT. THUS, IF YOJ USE F, YOU SHOULD USE F% ALSO. TRY TO USE 
AS FEW DIFFERENT VARIABLES AS POSSIBLE — REUSE VARIABLES WHENEVER 
POSSIBLE. 
DATA STORAGE REQUIREMENTS ARE AS FOLLOWS 

2 INTEGER 

4 OR 8 FLOATING POINT 

6 + N STRING, WHERE N IS THE STRING LENGTH IN BYTES 

4 IF THIS IS THE NAME OF A FUNCTION 

26 BYTES FOR AN ARRAY HEADER, PLUS SPACE FOR EACH VALUE 

FOR CONSTANTS, ONLY THE VALUE SPACE IS NEEDED. NOTE THAT CONSTANTS 
AK£ STORED WITHIN THE PROGRAM. THUS 

i.00 A « 2.7 : B = 2.7 
IS WASTEFUL, USE 

100 A = 2.7 : B = A 
INSTEAD. 
OF COURSE, 

100 A, B = 2.7 
IS THE MOST EFFICIENT. 
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RSTS — PROGRAM OPTIMIZATION 

AVOID DYNAMIC ALLOCATION OF STRINGS. AT THE BEGINNING OF A PROGRAM, 
ALLOCATE ANY STRINGS AT THEIR MAXIMUM LENGTH: 

100 Xg = SPACER (MAX% ) 
WHERE MAX IS THE MAXIMUM LENGTH OF THE STRING. THEN, USE THE LSET 
AND RSET STATEMENTS TO MOVE DATA INTO THE STRING. DON'T RE-USE LET. 



USE THE CHANGE STATEMENT TO ACCESS ELEMENTS AS AN INTEGER ARRAY. 

CONSIDER: 

100 Ag = "ABCD" : Bg =SPACEg(5%) :.-.ALLOCATE SPACE 

200 Cg = Ag : LSET Bg = Ag : DON'T ALLOCATE SPACE 

300 Dg = Ag + "E" : Eg = LEFT(Ag,2%) : ALLOCATE SPACE 

NOTE THE TWO TYPES OF STATEMENT IN LINE 200 

C$ = Ag THE VARIABLE C# POINTS TO THE SAME ADDRESS 

AS THE VARIABLE A$ . 
LSET Cg = Ag THE STRING THAT Ag POINTS TO IS COPIED INTO 
THE DATA AREA THAT Cg POINTS TO. 



NOTE ALSO 

Cg = Ag + "" 



CONCATINATES Ag WITH THE NULL-STRING WHICH 
ALLOCATES MEMORY SPACE AND THEN COPIES THE 
STRING THAT Ag POINTS TO. 



//~f 



RSTS — PROGRAM OPTIMIZATION 2 

STRING MOVEMENT EXAMPLE. ASSUME THE SITUATION WHERE 

Ag f~^ "ABCD" 

C# — l-> "DEF" 



AFTER 100 



C* 



C 



.) 



AFTER 100 LSET C$ = A# 

A$ Q5>- "ABCD" 

c g __^^ "ABC" 

AFTER 100 C# = h$ + "" 

A? ■■ - • ,>- "ABCD" 
C# - - Vi:>~ "ABCD" 

NOTE THAT IF A# POINTS TO AN I/O BUFFER (BY THE FIELD STATEMENT) , 
THE STATEMENT 

100 C$ = A# 
WILL CAUSE Cg TO POINT TO THE SAME PART OF THE I/O BUFFER. IF 
A NEW DATUM IS READ (USING GET) , Q$ WILL POINT TO DIFFERENT DATA. 



WHEN YOU MUST MANIPULATE STRINGS, TRY TO USE ASCII AND CHANGE 
STATEMENTS. AVOID USING TEMPORARY VARIABLES IF NOT NECESSARY 
INSTEAD OF 

100 M# • LEFT(Q#, 3%) 

110 Ng - RIGHT (P£, 2%) 

120 Tg = Mg + Ng 

/ f-ZO 



RSTS — PROGRAM OPTIMIZATION 2 (CONT'D) 

USE 

100 T$ = LEFT(Qg, 3%) + RIGHT (P^, 2%) 

OPEN FILES AT THE BEGINNING OF THE PROGRAM, NOT IN THE MIDDLE 
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RSTS — ^CODING OPTIMIZATION 

USE INTEGER VARIABLES WHENEVER POSSIBLE, ALWAYS SPECIFY EITHER 
»%' OR «.' WHEN WRITING CONSTANTS. 

SE MULTIPLE STATEMENTS PER LINE. (THE MAXIMUM STATEMENT LENGTH 
FOR MULTIPLE-LINE STATEMENTS IS 256 BYTES) . 

USE ! TO INDICATE COMMENTS INSTEAD OF REM. 

IN IF STATEMENTS, DO NOT COMPARE VALUES WITH ZERO: 
IF A%<> GO TO 100 
SHOULD BE WRITTEN 

IF A% GO TO 100 

USE STATEMENT MODIFIERS WHENEVER POSSIBLE (SEE BELOW) . 

FREQUENTLY USED CONSTANTS SHOULD BE DECLARED AS VARIABLES. 

AVOID MAT COMMANDS. 

AVOID ARRAYS — USE INDIVIDUAL VARIABLE NAMES WHERE POSSIBLE. 
IF YOU USE ARRAYS, ALWAYS DIMENSION THEM AND SPECIFY 
INTEGER SUBSCRIPTS. ARRAY ELEMENTS SHOULD BE INTEGERS 
WHENEVER POSSIBLE. 
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RE-USE PREVIOUSLY CALCULATED ITEMS. AVOID INTERMEDIATE TERMS: 

A = B + C 

D = A + E 
SHOULD BE WRITTEN 

D = B + C + E 
UNLESS A IS NEEDED INDEPENDENTLY. 

DON'T USE USER-DEFINED FUNCTIONS, ESPECIALLY WITH STRINGS. USE GOSUB 
ALWAYS EXIT FROM SUBROUTINES VIA RETURN, NEVER VIA GOTO. 
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RSTS ~ FILE AND MOVING-HEAD DISK OPTIMIZATION 

OPTIMIZE PACK AND FILE CLUSTERSIZE. 

KEEP LARGE, FREQUENTLY USED FILES ON SEPERATE DISKS. 

PRE-EXTEND FILES TO THEIR MAXIMUM SIZE. 

PRE-ALLOCATE SCRATCH FILES. THEN, DO NOT KILL THEM, BUT CLOSE 

AND RE-USE THEM. 

CLEAN DISK STRUCTURES: COPY ALL ACTIVE FILES TO MAGTAPE, THEN 

RE-STRUCTURE THE PACK USING DSKINT. 

KEEP PRODUCTION AND DEVELOPMENT ACCOUNTS SEPERATE. 

CF TWO FILES ARE TO BE OPEN AT THE SAME TIME, KEEP THEM ON 

SEPERATE DISKS IF POSSIBLE. 

FILE CLUSTERSIZE 

A FILE -CONTROL-BLOCK (FCB) IS USED TO LOCATE THE ACTUAL SEGMENTS OF 
A FILE. SEVEN SEGMENTS FIT IN ONE FCB. IF THE FILE REQUIRES MORE 
THAN SEVEN SEGMENTS, A SECOND FCB IS READ FROM DISK. TRY TO DEFINE 
FILE CLUSTERSIZE SO ONLY ONE FCB IS NEEDED. 

THE NUMBER OF FCB BLOCKS IS GIVEN BY THE FORMULA: 

N = 1 + INT ((FILE LENGTH IN SECTORS / 7) X CLUSTERSIZE) 

FOR EXAMPLE, FOR A FILE HAVING A LENGTH OF 200 SECTORS, N WILL 
HAVE THE FOLLOWING VALUES 

_N CLUSTERSIZE 

29 1 

15 2 

8 4 

4 8 

2 16 

1 32 



//-// 



r>£?mo pttp i\mh ur>T7TM/i_urnn nTCir nDTTMT7.aTTnM /rnM f P'n\ 

I\gik) a J.XJ.UJ nMU i'lyv xuu" itunw uxw» v*. j. 4.w*ujii >>-v*i v-wv*.*.*. ** / 



CHOOSE A CLUSTERSIZE OF 32, IF POSSIBLE. 
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RSTS — RECORD TRANSFER OPTIMIZATION 
i?SE RECORD I/O WHEREVER POSSIBLE. 

AVOID READ AND PRINT AS THEY ARE VERY SLOW (CHARACTER BY CHARACTER) . 

WHILE VIRTUAL-ARRAY I/O IS FAST, IT MAY REQUIRE MULTIPLE ACCESSES. 

_ OR EXAMPLE : 

100 DIM^4%, A(500%), B(500%) 

200 C(I%) = A(I%) + B(I%) FOR 1% = 1% TO N% 

THIS WILL REQUIRE ONE READ FOR A(I%) AND ANOTHER FOR B(%). THE 
SECOND WILL BE TO A DIFFERENT AREA OF THE DISK. IF A FILE STRUCTURE 
WERE DEFINED WHERE A (I) AND B(I) WERE PARTS OF RECORD I IN A 
FILE ACCESSED BY GET, ONLY ONE ACCESS WOULD BE NEEDED. THUS, 
YOU TRADE A MORE COMPLEX PROGRAM (GET FOLLOWED BY FIELD FOLLOWED 
BY THE COMPUTATION) FOR A SIMPLER I/O STRUCTURE AND A MUCH 
FASTER-RUNNING PROGRAM — ESPECIALLY IF THE FILES ARE LARGE AND 
ARE STORED ON A MOVING-HEAD DISK. 
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DEVICE DfilVER 



DIGITAL EQUIPMENT CORPORATION 



A Device Driver Needs: 



OPEN Routine 
Service Routine 
Close Routine 
Interrupt Handler 



Lev 3 
Lev 3 
Lev 3 
INT Level 



OPN XXX 

CLS XXX 
XXX INT 



Three exits and nine sub-routines exist in the Monitor for use 
by Device Drivers. 



1 


REGSAV 


2 


FETCH 


3 


STORE 


4 


CIRBUT 


5 


FREBUT 


6 


CHRUSR 


7 


CHRUJ01 


8 


TTY520 




TTY530 


9 


IOFINI 


10 


IOEXIT 


11 


IOREDO 


12 


RESRT4 



ISR RO-7R5 SAVE 

UPDATES DDB & GETS CHAR 

STORE CHAR & UPDATE DDB 

CLEARS SMALL BUFFER CHAINS 

FREE BUFFER AVAILABILITY CHECKER 

XFR CHAR FROM MON SMALL BUFFER POOL USRBFR 

MOV CHR TO USER BUFFER 

MOV CHR FROM USER BUFFER TO DRIVER USING XRB 

UPDATE XRB 

IB STATUS TO SET FROM ISR 

I/O COMPLETE EXIT & ALSO RETURN ERROR CODE 

CAN't DO NOW - DO LATER 

ISR EXIT 



DIGITAL EQUIPMENT CORPORATION 
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ADDING A DEVICE DRIVER TO RSTS V5B 
********************************** 

Introduction - There exist hooks in the RSTS Monitor for adding 

3 device drivers to the system. Including a device driver 
requires a re-system generation. Two slots are presently 
used for optional devices. XXX is used for pseudo 
keyboards and ZZZ is used for the 2780 Emulator. Therefore, 
the YYY slot is recommended. 

^aneral Philosophy - There are two types of device drivers in 
RSTS/E. Devices capable of NPR transfers move data 
directly frnm the dpvirip to the user data buffer. 
This requires the user to be locked in core during 
the transfer 

Slower character oriented devices perform data transfer 

to monitor buffer space, while the job is not resident in 

core. Later the data is tranf erred from the monitor 

buffer area to the user buffer. Monitor buffers can 

be extracted from the small buffer pool or can be 

special buffers defined in the read/write portion 

of the monitor. Small buffers are 16 words long, 

the first word contains a link word leaving room 

to store 30 characters of data. Monitor subroutines 

are available for storing and extracting characters 

from these buffers. Pointers to these buffers and 

current position within these buffers is stored in 

a device data blocks for a particular device. 

If special buffers are defined within the monitor, 

the device driver must manager that buffer. 

Definitions - 

FIRQB - File Request Queue Block 

The "FIRQB" is the means for queueing request for 
the file processor. Opening and closing of devices 
and files are processed this way. The FIRQB is 
actually a parameter block which contains information 
pertinent to the request. 

XRB = Transfer Control Block 

Reads and writes are initiated by the Run-Time System. 
The Monitor, not the file processor handles the request 
Information such as byte count and transfer address 
is passed in the XRB. A copy of the XRB exists in both 
the user image and the monitor. 

DDB = Device Data Block 

There exists one DDB per device unit. The format 
for this device is basically the same for various 
devices. However, each device uses various words 
and bits differently. 
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for legal device names. 
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DEVNAM: 



"DP 

"DF 

"DK 

"KB 

"DT 

"LP 

"PR 

"PP 

"CR 

"MT 

XXXXXX 

YYYYYY 

ZZZZZZ 

-1 



IF RP IS SYSTEM nTSK 



;END OF TABLE 



IOB = 10 Block. The login procedure includes setting up 
the job data structure, which consists of 3 small 
buffers from the free small buffer pool. 
One is used as a job data block, the first word 
of which points to another small buffer which is 
used as the IOB for thisjob. The IOB consists 
of one entry per I/O channel. 

The third small buffer which is pointed to by the 
job data block is a work block for FIRQB's and 
XRB ' s . 

JBSTAT/JBWAIT = the monitor contains a Job Status (JBSTAT) 
and Job Wait (JBWAIT) Table. Each table contains 
a one word entry per job. The JBWAIT table indicates 
job's waiting for a completion. The JBSTAT 
table indicates function completions. 
The following; describes the format of a one 
word entry in both of these tables. 





JSDSK 


= 


1 


DISK WAIT 




JSKEY 


=r 


2 


KB 


: WAIT 




JSDTA 


= 


4 


DT 


i WAIT 




JSLPT 


= 


10 


LP 


: WAIT 




JSPTR 


= 


20 


PR 


: WAIT 




JSPTP 


= 


40 


PP: 


: WAIT 




JSCDR 


= 


100 


CR 


: WAIT 




JSMTA 


= 


200 


MT: 


WAIT 




JSXXX 


= 


400 


XX: 


WAIT 




JSYYY 


= 


1000 


YY: 


WAIT 




JSZZZ 


= 


2000 


ZZ: 


WAIT 




JSTEL 


sr 


4000 


KB: 


TELEPRINTER WAIT 




JSFIP 


=s 


10000 


FII 


jE PROCESSOR WAIT 




JSTIM 


= 


20000 


.SI 


JEEP WAIT CONDITION 




JSNUL 


:= 


40000 


SMI 


\LL BUFFER WAIT CONDITION 


Overview - 













A device driver in RSTS requires the following 
main sections. 

1. Open routine 
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2. Close routine 

3. Level 3 service routine - read/write processor 

4 . Interrupt Service Routine 

For each device driver in the RSTS monitor, there exists 
a handler index. These are assigned in the following 
manner: 

disk 

2 keyboards 

4 DECtape 

6 line printer 

10 paper tape reader 

12 paper tape punch 

14 card reader 

16 magtape 

20 XXX device 

22 YYY device 

24 ZZZ device 

The RSTS monitor contains common code for processing OPEN, 
CLOSE, READS and WRITES (GET, PUT, INPUT, PRINT) for de- 
vices. The open and ciose code is contained in a module 
named "OPN" . Reads and writes to slower character oriented 
devices perform data transfers to monitor buffer space, 
while the job is not resident in core. Later the data is 
transferred from monitor buffer space to the user buffer 
area. Monitor buffers are extracted from the small/large 
buffer pool or defined as part of the device driver. Reads 
and writes to devices are processed in the module "MON" . 
Completion of these functions depends on three dispatch 
tables which are accessed using the handler index. 

1. Open table (OPNTBL) - this table contains one slot 

for every device, which contains the address 
of the open routine for that device. 

2. Close table (CLSTBL) - similar to open table only 

contains pointers to close routines for every 
device. 

3. Service table (SERTBL) - contains addresses for device 

service routines which handle reads and writes. 
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CLOSE 



Open "PR:" as file 1% 

The above BASIC PLUS command opens the paper tape reader on 
channel 1. This statement causes a file processor request to 
be issued. The code executed as a result of this request 
can be either resident or non-resident. One of the system 
generation questions asks whether you want resident file 
handling. This resident file handling includes the open 
code. 

The open code functions as described below. 

1. Check channel specified. If some device or file is 

already open on this channel, abort with an 
error message. 

2. Check device name specified with device name table. 

If this device does not exist, abort with a 
no device error, the unit # is also verified. 

3. Check DDB for device owner. If this job already owns the 

device, exit. If another job owns the device, 
abort with an error message. Otherwise update 
the DDB with the following information. 

1. Current time 

2. Clear status bit 

3. Set access count to 0. 

4. Set job #. 

4. Using the handler index which exists in the DDB, calculate 

the address for the appropriate device open routine. 
Now, execute the device open routine as a subroutine. 

5. Increment access count in DDB. 

6. Set up DDB address in 10 block entry for specified 

channel , 



1. Remove entry from 10 block entry for this channel. 

2. Using handler index from DDB, calculate address for 

appropriate close routine. Execute CLOSE routine 
as a subroutine. 

3. Decrement access count. . 

4. If device is not in use update DDB and save device time 

job data block for the job who just used the 
device. 

READ/WRITE Processing 

USERIO - associated with this routine is the transfer control 

block (XRB) . The XRB contains the following information: 
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1. Length of I/O buffer in bytes. 

2. Byte count for transfer 

3. Pointer to buffer start for transfer 

4. Channel # for transfer 

5. Starting device block # for transfer 

6. Wait time for tty input 

JSERIO performs the following: 

1. Check that specified channel is open. If not open abort 
with an error message. 

2 Check DDB for legal access (read locked and write locked 

status) . Insure we are not reading from a line printer. 
If access is illegal, abort with the error message 
"PROTECTION VIOLATION". 

3. Set appropriate JBWAIT condition for this job. 

4. Map the user buffer in kernel space with the monitor. 

This is done to allow core to core data transfers 
between the users buffer and monitor buffers. 

5. Using the handler index calculate the address for the appropriate 

level 3 service routine. Then jump to the appropriate 
device service routine. 

USERIX 

This is essentially a different entry point to "USERIO". It is 
used for redoing I/O. If for some reason I/O was stalled by the 

or a special data buffer can be defined inthe read/write 

portion of the monitor, 
used for redoing I/O. If for some reason I/O was stalled by the 
driver exiting to IOREDO, the I/O request would later be processed 
through this entry. 

RELATED MONITOR ROUTINES AND ENTRIES 
************************************ 

An understanding of the following monitor routines and entry points 
is necessary to implement a driver. Including any of the following 
requires an appropriate global definition (.GLOBL). 



1. 


REGSAV 


2. 


FETCH 


3. 


STORE 


4. 


CLRBUF 


5. 


FREBUF 


6. 


CHRUSR 


7. 


CHRU01 


8. 


TTYS20 AND TTYS30 


9. 


RESRT4 


10. 


IOREDO 
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12. IOFINI 

1 . REGSAV- 

2. FETCH - 

3. STORE - 



saves registers through 5 on the stack. Used by 



4. CLRBUF - 



5. FREBUF - 



cue xxiuerrupL. service rouuine. 

get character from the small buffer chain when 
ready to output a character to the device. 

takes a specified character and stores it in the 

and counts. Also attempts to allocate another 
small buffer if no free space is available in 
existing buffers. 

clears small buffer chain which is being used for 
either input or output, updates appropriate 
counters, pointers, and return buffers to the 
free buffer pool. 

free buffer availability checker. If there are not 

at least 10 small buffers left in the system, return 

a negative indication. If this device has not used 

its quota return position indication. 

Else if not at least 20% of total free in system 

return negative. 

Else if this device has 25% or more of total system 

small buffers return negative. 

Else return positive. 

transfer a character from the monitor small buffer po< 
to the users buffer. 

move specified character to the user buffer. 

move a character from the user buffer to driver using 
information in the XRB. 

update pointers and count in XRB. 

common return from interrupt processing at levels 
4 through 7. If the interrupted level is 
processor level 3 or higher issue an RTI. 
Otherwise, look for other monitor routines to 
start up. 

signal I/O redo. This exit is used to indicate 
I/O cannot be serviced at this time, but should be 
redone later. 

exit saying I/O complete. Used by level 3 service. 
Also used to return an error code. Most common 
error types are: 

EOF end of file 

DATERR general parity error 

HNGDEV device is hung 

NOROOM device is "full" 

12. IOFINI - subroutine called from Interrupt Service Routine. 



6. CHRUSR - 

7. CHRU01 - 

8. TTYS20 - 

TTYS30 - 

9. RESRT4 - 



10. IOREDO - 



11. IOEXIT - 



Ijl -7 
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"IOREDO". 

Save and Restore Registers 

CALL : JSR R5 , REGSAV 

exits with SP->RjZf,Rl,R2,R3 ,R4,R5 

and the carry bit unchanged 
CALL: JSR R5,REGRES 

pops R0-R5 from stack leaving carry bit 

unchanged 

Character Fetching Routine 
CALL: R1-»DDB 

JSR R5, FETCH 
+ OFFSET 

RETURN [C=l FOR NO CHARACTERS LEFT] 

OFFSET=DDOUT+FP for output buffer 
character is returned in R2 
R4 is clobbered 



Character Storing Routine 
CALL: R1-*DDB 



where : 



R2=character to store 
JSR R5, STORE 
+ OFFSET 

RETURN [C=l FOR NO ROOM LEFT] 
OFFSET=DDINP+FP for input buffer 
OFFSET=DDOUT+FP for output buffer 
R3,R4 are clobbered by the process! 



Buffer Chain Clearer Routine 
CALL: R1->DDB 

JSR R5,CLRBUF 
+ OFFSET 
RETURN 
where: OFFSET=DDINP+EP for inputbuffer 

OFFSET=DDOUT+EP for output buffer 

R3 is clobbered by the process! 

CPU priority raises to 5 during process 

Free Buffer Availability Checker 
CALL: R1-*DDB 

JSR R5,FREBUF 
+ XXX. OB 

RETURN [C=l IF NOT ENOUGH] 
where: XXX. OB is BC count fudge factor 



Character from Buffer Pool to User Routine 
CALL: R1->DDB 

R5-*XRB @ XRLOC 
JSR 



RJ2f,CHRUSR 

RETURN IF NO USER BUFFER ROOM LEFT 

RETURN IF ROOM FOR MORE 

RETURN IF NO BUFFER POOL CHARS LEFT 



CALL: SAME REGISTER AS 6. 
JSR RJZf,CHRU01 

RETURN IS NO USER BUFFER ROOM LEFT 
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return if room for more 
R3 is clobbered by both routines 

fi_ rharanfor -Fr-rvm Heov. mr. Da4-hvx 

CALL: R5-*XRB @ XRLOC 

JSR PC,TTYS20 
RETURN 
Character in R2 

Check C bit and Wait or Adjust Counts and Return 

CALL: R5-* XRB @ XRLOC 

CARRY=1 means buffering failure 
JSR PC,TTYS30 

RETURN [only if no failure] 

R5 NOW ->XRB @ XRBC 

9. Return from Interrupt 

CALL: JMP RESRT4 

10. Re-Do the I/O Routine 

CALL: JMP IOREDO 

11. Exit from I/O Completion 

CALL: JMP IOEXIT 

Exit from I/O Completion with an Error 
CALL: MOVB #HNGDEV, @IOSTS 

JMP IOEXIT 
HNGDEV can be replaced with DATERR, EOF, NOROOM, ETC. 

Routine to Set Status Bits in JBSTAT 
CALL: R1->DDB 

JSR R5,I0FINI 
+ JBSTAT BITS TO SET 
RETURN 
JOB # is in R4 on return 

REGISTER DEFINITIONS FOR OPEN, CLOSE, AND SERVICE 

The following registers are set up before entering the 
following sections of the device driver. 



OPEN 



R1-*DDB 
R4«*FIRQB 

The following instructions should be included in the 
OPEN subroutine to transfer the default buffer size 
and flag value to the Run-Time System. 

MOV #???,FQBUFL[R4) ;SET DEFAULT BUFFER LENGTH 

THIS IS ALSO THE MINIMUM 
BUFFER SIZE (RECORD SIZE) 
BUFFER SIZE (RECORDS SIZE) 

MOV #YYYFLAG,FQFLAG(R4) ;SET FLAG VALUE 
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CLOSE 

Rl-^DDB 

R4^FIRQB 

R5-»DDB 

~aad/ Write Service 



RJZf - 2 for read, 4 for write (access verified) 

Rl - FCB/DDB pointer 

R2 - handler index 

R3 - XRB pointer (@ XRLEN) 

R4 - kernel window address to user's buffer 

R5 - byte count pointer (XRB @ XRBC) 



Mirt-nc 



The following macros must be defined in the device driver 

1. VECTOR ORIGIN ,ADDRES,PRI 

where: ORIGIN is the address of the interrupt vector 
for this device 

ADDRESS is the address of the interrupt service 
routine for this device 

PRI is the priority at which the interrupt 
service routine should run. This is actually 
the value which goes into the second word 
of the interrupt vector. The following 
symbols were defined in the module kernel 
which is assembled with device driver and may 
be used here. 

PR7 - defined as 340 to indicate 

priority 7. 
PR6 - defined as 300 to indicate 

priority 6 . 
PR5 - defined as 240 to indicate 

priority 6. 
PR4 - defined as 200 to indicate 

priority 4. 

2. $$$DEV DEV,STS,IBC,OBC,SIZ 

where: DEV indicates the device. For example, 
YYY would be used if adding a YY device 
driver. 

STS indicates status. The following symbols 
defined in kernel may be used here. 

DDWLO - device is write-locked 

FLGPOS - file's position needs checking 

FLGFRC - file is force type, not blocked 



Run-Time System on output even 
if the data buffer in the job 
is not full) . 

FLGKB - file is keyboard type 

FLGRND - file is random access type 

DDRLO - device is read-locked 

DDNFS - device is non file structured 

IBC is the number of small buffers allowed 
for input. 

OBC is the number of small buffers allowed 
for output. 

SIZ indicates line size. 

NOTE: Although IBC and OBC specify the number 
of small buffers a device may allocated , 
buffer management will allow a device to 
allocate more buffers if there are a suf- 
ficient number of free small buffers in 
the system. 

$$$FLG DEV,Q1 

where i DEV indicates the device. For example* 
YYY would be used for a YY device, 

Ql indicates the appropriate flag values 
for a device. Any of the following symbols 
may be OR'ed together. 

DDNFS - file is non-file structured 

DDRLO - file is read locked 

DDWLO - file is write locked 

FLGPOS - file's position needs checking. 
Used by terminal and line printer drivers. 
Keeps vertical and horizontal positions. 
Checks control characters. 

FLGFRC - file is force type, not blocked. 
Only significant for output devices. 
Used for character oriented devices, data 
is transferred from the Runtime System 
without waiting for the buffer to fill up. 
Should always be set for input only devices 
so that error messages will be returned 
immediately. 

FLGKB - file is keyboard type 

should indicate device is human oriented device 

not used by the system. Meant to be checked 



by the user by checking tne status 

L FLGRND - file is random access type 

The Run-Time System will not accept the 
"RECORD" option. It will return an error 
message instead. 

4. ORG YYYCTL - Only necessary if a portion of the driver must 

be read/write. Otherwise, all code 
in the driver must be read only code. 
This line of code must be included if 
you want to add your flag words and 
buffers. 

INCORPORATING A NON-STANDARD DEVICE DRIVER IN RSTS/E 

The following modifications to the system generation procedure 
are required. 

After answering all SYSGEN questions the following message 
appears on the terminal. 

SYSGEN: IF YOU HAVE ANY SPECIAL REQUIREMENTS WHICH REQUIRE 
SYSGEN: EDITING EITHER THE CONFIGURATION FILE (CONFIG. MAC) 
SYSGEN:OR THE BATCH GENERATION FILE (SYSGEN.BAT), ABORT 
SYSGEN:NOW BY TYPING "CONTROL/C" AND THEN "TE" . RESUME AT 
SYSGEN:THIS POINT BY TYPING "BATCH SYSGN2". OTHERWISE, 
SYSGEN: TYPE "CO" TO CONTINUE WITH SYSTEM GENERATION: 

At this point the files "CONFIG. MAC" and "SYSGEN.BAT" should be 
modified. Therefore type "CONTROL/C" and then "TE" . 

The configuration file (CONFIG. MAC) must be modified to 
include the following parameters. 

YYYY11=N ;N=Number of units for this device 
YYYYYY="AB ; device name, must not conflict with existing 

devices (DT, MT, PR, etc.) 

"he batch stream (SYSGEN.BAT) must be modified to include 
assembly and linking of the new driver. 

"SYSGEN.BAT" includes the following commands for assembling 
TBL and TTY. A command for assembling YYY must be included. 

$RUN MACRO 

#TBL,TBL/CR<CONFIG, COMMON, KERNEL, TBL 

$RUN MACRO 

#TTY,TTY/CR<CONFIG, COMMON, KERNEL, PKB, TTY 
*** $RUN MACRO 
* * * # YYY , YYY/CR<COMMON , KERNEL , YYY 

A command must also be added to the link the driver to RSTS . 

$RUN LINK 
#UPDATE 
#NOFAIL 
# PATCH 
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#RSTS/IN : OPN : SND/E 

After including the above modification, resume b^ +-vr>i 
"BATCH SYSGN2 M r ' J " J£ "~ 
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ERRLOGGING AND CRASH ANALYSIS 



r-BXOT LODGING ON RSTS/E 
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RHI1/RP04 ERROR LOGGING IN RSTS/E 



RSTS/E error logging uses 13 word packets. The first 4 words are 
standard for all packets. The first 4 words contains 

ERROR CODE 

DATE 

TIME (in seconds) 

JOB 

PROCESSOR STATUS 

RP04*s use 6 of the remaining 9 words to save the following. 

RHCS1 RH11 Control Status 1 

RHCS2 RH11 Control Status 2 

RHDS RH11 Drive Status 

RHER RH11 Error Status 

RBDC RP04 Desired Cylinder 
RBDA RP04 Desired Track/Sector 
RBOFF RP04 Offset 

1 of the remaining 3 words is used as follows: 

11/70: RHBAE RH70 Address Extension 
RHCS3 RH70 Control Status 3 

Non-11/70 i Flag indicating no RHBAE or RHCS3 



The final 2 words are used as follows % 

RBER2 & RBER3 are 

Flag indicating RBER2 = 
Flag indicating RBER3 = 

RHWC RH11 Word Count 
RHBA RH11 Bus Address 
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ERROR LOGGING ON RSTS/E 
March 21, 1975 



RBER2 ^ 

RBER3 = 

Flag indicating RBER3 = 

RBER2 RP04 Error Register #2 

RHBA RH11 Bus Address 

RBER2 = 
RBER3 + 

Flag indicating RBER2 = 

RWWP Dull t.7^~^ n x. 

RBER3 RPjgf4 Error Register #3 
RBER2 & RBER3 ^ 

RBER2 RP04 Error Register #2 
RBER3 RP04 Error Register #3 
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ft******************* 
THERE EXISTS A CORE TABLE CALLED "ERRTBL" WHICH HOLDS TEN 12-WORD 

firrTMAl CMTUfCfl TUT « cWPTu n«r Tutc rial r to i«» r tr » u r- * n\j »ut- 

*» i-. v> a. k, b- u. > - i • * * u. w , i hi. wi_-->v»ir! wr inxvJ l*DUw 1 U l.'C.ri'^C.U O ' I n C 

PARAMETER "ERRSIZ" WHICH APPEARS IN THE CONFIGURATION FILE 
r ;CONFIG.KAC>« AND DEFINES THE NUMBER OF TABLE ENTRIES. 

^RLOG CREATES A TABLE ENTRY ON THE STACK, COMPARES THIS ENTRY 
FOR A POSSIBLE DUPLICATION IN THF TARLE "ERRTBL". IF A 
DUPLICATION IS FOUND, A REPEAT COUNT IS INCREMENTED IN THE 
ALREADY EXISTING TABLE ENtRy AND THE ROUTINE IS EXITED. 

A MORE DETAILED DESCRIPTION FOLLOWS! 

ERRLOG FIRST DECIDES WHETHER AN ERROR IS BFING LOGGED 
OR THE SPECIAL SyS FUNCTION TO FTP (-15) FOR ERRLOGGING 

is being executed, if a parameter of fl is specified in 
the sys function, errlog interprets this as an announcement 
that this Job is the error logger and should be made 
r jnnable every time an error is logged, errlog records 
the Job number and job data address of this particular Job. 

(fir 

THE PARAMETER IS NON-ZERO, TABLE ENTRIES FROM "ERRTBL" ARE 
>ASSE0 BACK TO THE USER, ERRCPY USES THIS SYS FUNCTION 

TO EXTRACT ENTRIES FROM CORE AND COPY THEM TO THE DISK FILE 

"$ERRLOG.FIL% 

IF AN ERROR IS BEING LOGGED, A 12 DECIMAL WORD ENTRY IS 
CONSTRUCTED ON THE STACK, THE FORMAT FOR THIS ENTRY FOLLOWS, 

'WORD LOW BYTE CONTATNS e^oy c *Jl e 

r^eu HIGH BYTE CONTAINS A REPEAT COUNT 

WORD 1 BITS 1 THROUGH 15 CONTAIN THE DATE 

BIT IS THE HIGH BIT OF THE TIME IN HRS/MINS 

WORD 2 BITS 6 THROUGH 15 ARE THE LOW BITS OF THE TIME 

IN HRS/MINS 
BITS THROUGH 5 REPRESENT SECONDS TILL MIDNIGHT 

^D 3 BITS 6 THROUGH 15 REPRESENT THE PSW IN PACKED FORMAT 

BITS THROUGH 5 REPRESENT THE JOB NUMBER 

WORD A ^VIRTUAL PC 

WORD 5 tHIGH 12 BITS OF ABSOLUTE PC, RIGHT JUSTIFIED 

WORD 6 

THROUGH 

WORD U VARIOUS REGISTFR$, DEPENDENT ON ERROR TYPE 

•INCLUDED FOR THE FOLLOWING ERRORS ONLY 
TRAP THROUGH 4 
RESERVED INSTRUCTION TRAP 
MEMORY MANAGEMENT FRROR 
PARITY ERROR 

^WERFAIL AND TRAP THOUGH SAVE NOTHING BEYOND WORD 3, 
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ASSUMED AND THE PSw ENtRY IS SET TO ALL 1»S, 

T BIT SET 

UNUSED BIT SET 

CURRENT OR PREVIOUS MODE SUPERVISOR "01" 

THE PSW IS PACKED INTO BITS 6 THROUGH 15 OF WORD 3 IN THE 
BLOWING MANNERt 

1*CURRENT MODE USER 
0«CURRENT MODE KFRNEL 

i»PREVIOUS MODE USER 
0*PREVIOUS MODE KERNEL 

PRIORITY 

GENERAL REGISTER SET, 1 IF U/45 

N 

Z 

V 

c 

CALCULATING ABSOLUTE (PHYSICAL) ADDRESS FROM VIRTUAL ADDRESSl 

N« BITS 15-13 OF VIRTUAL ADDRESS 
XXX" BITS 12-06 OF VIRTUAL ADDRESS 

C(PAR N) ♦ XXX ■ HIGH ORO^R 12 BITS OF PHYSICAL ADDRESS 

LOW ORDER 6 BITS a»E THE SAME IN *BOTH PHYSICAL AND 
VIRTUAL SPACE, 

MISSED ERRORS 



cit 


15 


BIT 


14 


Bi ( 


11-13 


BIT 


10 


BI, 


9 


BIT 


8 


BIT 


7 


BIT 


6 



IF "ERRTBL" IS FULL AFTER A NEW ENTRY IS CREATED ON THF STACK, 
AN EXISTING ENTRY WILL BE OVERLAVED. BEFORE THIS HAPPENS, 
THE REPEAT COUNT PROM THE TARLE FNTRy ABOUT TO BE LOST IS 
ADDED TO A COUNTER WHICH IS ALSO INCREMENTED 1 FOR THAT ENTRY, 
THE CONTENT OF THIS COUNT IS LATFR PASSED TO THE USER AS IF 
IT WERE A TABLE ENTRY, THIS ENTRY CONTAINS ONLY TWo WORDS. 

WORD 

WORD 1 NUMBER OF MISSED ERRORS 

IF THIS COUNT REACHES -1, IT IS RESET TO THE HIGHEST POSITIVE VALUE, 

THE "ERRTBL" COULD OVERFLOW IN THIS MANNER, IF "ERRCPY f BAS" IS 
NOT RUNNING, OR ERRORS ARE BEING LOGGED AT AN EXTREMELY RAPID 
3ATE. 
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THE FOLLOWING 16 ERROR TYPES ARE LOGGED AND DISPLAYED WITH 
THE ERROR LOGGING FACILITIES IN RSTS/E, 

DECTAPE 

RFlt 

RCU 

RK11 

RP11 

MAGTAPE 

KEYBOARD 

TRAP THROUGH 4 

POWER FAIL 

TRAP THROUGH 

RESERVED INSTRUCTION 

JUMP TO 

RUN-TIME SYSTEM ERROR (CHECK-SUM ERROR) 

MEMORY MANAGEMENT 

DHll 

PARITY 

^i E F X rv2. R ? A I I0N Dl3 P lAYE0 B Y ERRDIs REGARDING MOST ERRORS Xa 
...ELF-EXPLANATORY. THA T IS HApDWApE REGISTERS APE DISPLAYED, 
SELECT ERRORS CAN BE CAUSED BY REFERENCING A UNIT * WHICH * 
IS NOT PHYSICALLY SELECTED, 

1*1 5S S I! UY 0F TW0 ERR0R MESSAGES WHICH ARE NOT OBVIOUS 
ARE DISCUSSED BELOW, (DHll AND CHECKSUM) «°viug 8 

1, CHECKSUM ERRORS 

THE FOLLOWING REGISTERS ARE DISPLAYED. SAMPLE VALUFS h®F TkiPMimn 
TO HELP EXPLAIN THEIR MEANING. * ARE !NCfcU0El 

USER IMAGE BASE ■ 2400*10? 8 24mm 
TOP OF BASIC « 6000*100*20000 m ©20i8«^ 
USER IMAGE SIZE 
RUN-TImE SYSTEM SIZE IN OCTAt 



*UISAR0 


2400 


UISAR7 


6000 


SIZE 


5 


RTS SIZE 


16 


R3 




R5 





**************** (?) 

* 

* 

* 

* 

* 
**************** 240000 

USER IMAGE 5K * 
**************** 

* 

* 

**************** 

* 

* 

BASIC * * 

14K * 

* 

* 

**************** 6200PI0 
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1, TRUE CHECKSUM, 

R3«>R5 * R3 ■ CHECKSUM FROM DISK 
R5 « COMPUTED CHECKSUM 



?HE S «PR0?RAM , U n2r ^oo AFTER * RUN 0R CHAIN COMMAND. 
USERtS TERMINAL ' MESSAGE W0ULD APP£AR 0N A 

2, R3«R5«0 

ON 11/40 WITH NON-FIS MATH PACKAGE, THE FIS INTERRUPTED 
ON n/45 WITH NON-FPP MATH PACKAGE, THE FPP INTERRUPTED! 

3 ' n^"^^ 1 ^^^?^.^ ^ ■ "-"FLOATING EXCEPTION ADDRESS" 
' ""'"was'iLLEGAl"'"'" r ' ML ' NAl,t ' TMt "FLOATING EXCEPTION CODE 1 ' 

Ippc^ S A$ G cnMr L nJj^c ? 0INT ERR0R PR °GR A M LOST-SORRY* SHOULD 
APPEAR AT SOME USER'S TERMINAL AT THE TIME OF THIS FRROR 

FOR CASES 2. AND 3 ti 

NOTEl SEE 11/45 PrOCESSO* HANDBOOK FOR DETAILED FPP INFORMATION, 

* USER INSTRUCTION SPACE ADDRESS REGISTER (PAR) 
UISAR0 THROUGH uIS A R3 ALWAYS MAP US ER IMAGE 

wl?H R 7 K°THE K^Kb^S;: 8 MAP RUN ' TIME S;STEM ' »T»PTINC 

2, OH11 ERRORS 

THE INFORMATION DISPLAYED INCLUDES THE FOLLOWING! 

JOB 
PSW 
•CH.EB 
CSR ADDRESS 
CSR CONTENTS 

silo status 

line parameter register 

current address register 

BYTE COUNT REGISTER 
BUFFER ACTIVE REGISTER 

THE FOLLOWING EVALUATION PROCEDURE SHOULD BE FOLLOWED! 
EXAMINE CSR CONTENTS. 

i5»KA«oii 8 ,2 c c T H:ETi: H ; E 8 .:jH 8 e j„ 8 s o overflow ' the 

" l" t ?il\Zlil^£ Hm ** w ™ HEM0RY ' THE INF0RM » TI ™ 
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OTHERWISE, CH.EF SHOULD BE EXAMINED, 

IK BIT 14 IS SET THEN THERE WAS A DATA OVERRUN*. 

IF BIT 12 IS SET, INDICATING PARITY ERROR THE LINE 
PARAMETER REGISTER SHOULD BE EXAMINED FOR BIT 4 
WHICH IS THE PARITY ENABLE INDICATOR, THIS CAsE 
SHOULD NEVER OCCUR FOR PSTS/E DOES NOT ENABLE 
PARITY ON THE DHil, H WEVER, THIS CONDITION HAS 
OCCURRED, THE CAUSE WAS SOLDER SPLASH, 

*CH',EB IS AN ABBREVIATION FOR CHARACTER - ERROR BIT REGISTER 
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IN ORDER TO ANALYZE SYSTEM CRASHES PROPERLY, THE CRASH DUMP 
FACILITY MUST BE ENABLED DURING THF START OPTION, AND THE 
CONSOLE SWITCHES MUST LEFT IN AN UPWARD POSITION. 



*'hfn the RSTS/E SYSTEM CRASHES. APPROXIMATELY 12K OF CORE 
-!U BE WRITTEN INTO THE DISK FILE CRASH. SYS UNDER ACCOUNT 
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;nPEE PROGRAMS MUST RE RUN TO EXTRACT THE INFORMATION NECFSSAY TO 
'•RFORM CRASH ANALYSIS. THESE PROGRAMS WHICH ARE DISTRIBUTED 
wIth THE SYSTEM LIBRARY ARE THE FOLLOWING! 

ANALYS 
ERRCRS 
ERRDI8 



? HE EXECUTION OF THESE THREE PROGRAMS SHOULD BE INITIATED FROM 
1HE CRASH, CTL FILE. THE FOLLOWING CRASH. CTL FILE EXAMPLE INCLUDES 
THE NECESSARY C0MMAND3. 



FORCE 

FORCE 

FORCE 

FORCE 

FORCE 

FORCE 

FORCF 

FORCE 

FORCE 

FORCE 

FORCE 

FORCE 

SEND 

SEND 

END 



KB0? RUN JANALYS 

KB0| f0,l)CRASH r 3YS 

KB0! KBt 

KB0J RUN 5.ERRCRS 

KBP»| TEMP.TMP 
KB0| 

KB^t RUN SERRDIS 

KBd, TEMP.TMP 

KBfll KBl 

KB0| ALL 

KBPli /KILL 

KB0I RUN $INIT 
I'M NOW ATTEMPTING 



THANK YOU FOR YOUR 



TO RECOVER 
PATIENCE,, 



FROM A CRASH 



THE LAST FORCE 

PROGRAM "INIT" 

COMMANDS IN THE START, CtL FILE. 

FOf? REPEATING THOSE COMMANDS IN 

CONTAINS TW ENTRIES, ONE WHICH 

FILE FOR COMMANDS AND ThE QT W ER 

COMMANDS FROM CRASH. CTL. 



COMMAND IN THIS EXAMPLE FORCES THE SYSTEM 
TO RUN AGAIN, THIS TIME EXECUTING ALL THE 

THIS ELIMINATES THF! NEED 
THIS FILE, THE INIT PROGRAM 
REQUIRES IT TO USE THE START. CTL 
WHICH CAUSES IT TO ASSUME 



THE INFORMATION OUTPUT BY THE COMMANDS IN THIS CRASH, CTI AND 
THE LOAD MAPS FOR THE SYSTEM ARE THE NECESSARY TOOLS FOR 
ANALYZING CRASHES, 

NOTEl JOB *»S IN THE CRASH DUMP ANALYSIS MUST RE CONVERTED FROM 
OCTAL TO DECIMAL AND DIVIDED BY 2 TO CORRFSPOND WITH 
JOB *»S IN THE CRASH DUMP STATUS, WHICH }S DISPLAYED 
AT THE BEGINNING OF THE CRASH ANALYSIS, NUMBERS UNDER 
"JOB) NEXT" AND "FUOP" ARE THE JOB * MULTIPLIED Ry ? 
IN OCTAL. 



*Ai.***A*4 AJ |, +A 4 + * 4 i. 
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TO T ONE OF SI POLLO.m!' ™" "" SH ° UU ° "«»">ON D 
E e R 9 R .COOE DEFINITION 



■J.-*.JL~*_J>. * JL^.L.t 
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"1 (X77777) UNKNOWN VECTOR 

"2 Ci77776) JUMP TO <* 

41 TRAP 4 

42 TRAP 1W 

43 TRAP 250 MEMORY MANAGMENT VIOLATION 

44 KERNEL SP STACK OVERFLOW 

46 TRAP 114 PARITY MEMORY ERROR 

FORCED DUMP 

THE A CRASH FT« S ps°^, ED t^^ PU I ER HALTE0 hk0 ^STARTED WRITING 0- 
FME CRASH FILE) ALL INFORMATION ON THE CRASH aNai v3*«5 ranu 

«J«Sg??J° "^ D ??r T0 O AND 1K ' CLIJ "' JC ' S| 'S« * « REG f , 
MEANINGLESS, FORCED DUMPs OF THIS TYPF DO NOT CAiiof twf mcat 

FOarV? r E 4 E ^ U ^ D WHKH 84VEs THtIineorha? on US if T "ou % U 
COMPUTER R FyAM?Nr P ; H r T r W S U L D PF M ° RE ^VlSEABU ?0 HALT W 
THE MI?CH aSdreI J« SI E 1 ^ L " C *TI0N 4, S M THIS ADDRESS I* 
i.nt switch ADDRESSES, LOAD ADDRESS, AND HIT START, 



( 



*, PC AND PSW - THE FIRST Two ITF^S ON the KERNfi STACK ARF Thf 
PC AND PSW AT THE TIME OF THE CRASH, " * Rt ™ E 

Pc " J^L^S 15 M * PS SH0 "LD RE REFERENCED FOR MODULES AND 

GLOBALS WHICH MOST NEARLY CORRESPOND TO THIS PC VAI.UE. 

PWS . THE PSW SHOULD FOLLOW THE FOLLOWING FORMAT, 

X XXX X0B ?XX X0X XXX 

******* * 

* * 1 IF 11/45, IF H/40 

* 

0000 CURRENT AND PREVIOUS MODE KERNEL 

KERNEL CRASH FROM AN INTERRUPT ROUTINE. 

00U CURRENT MODE KERNEL. PREVIOUS MODE USER, 

KERNEL CRASH FROM INTERRUPT ROUTINE OR MONITOR. 

lU1 ? U n!?fn T ANn DEVIOUS MODE USER. THIS WA S 
JaSC^RR^" m J0B * U *° ER "^OB, NEXT'- 

I. 1 ! ^^^^r^i^^r^ the psw should 
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3« KERNEL $P » SHOULD ALWAYS Rr tree yu,u «...«_ 

"2" 1 .™ «"««» w i? A ^2? o T n N f ! 'Itf::'!!! ""'! 




SPO-STSTAK^COCTAL) A KERNEL (MONITOR, OPERATION MS IN 

PROGRESS. THE JOB * UNDER "JORf NEXT" 
WAS THE JOB BEING PROCESSED A T T*E 
TIME THE SVSTEM CRASHED, 

8P>.SY8TAK- 2iC0 CT*L) ' FXPfFILE PROCESSOR) OPERATION WAS IN 



* w WO 



PROGPESS. THE JOR « iikmro 

DETERMINES WHICH JOB WaT'in AFFILE 
PROCESSING STATE. 

'LIU 18 * CASE 1S T * UE THE INFORMATION 
Sn oV/lV: (ni " REQUEST "E BLOCK) 

and/or »xp«»ctran s fep control blocks 

4 ' Ke " NE k^ D SS« B ?§ x 5^ R ;„i ^?S R ' DO Sf2? 8 ;ig'r r . . THPOU.H 5 

IS USED TO MAP ?H E I/O PA°Ce"° T0 " T ° USER 8P * CE - REGISTE * 7 

5, USER AOOR. REGISTERS - USER INSTRUCTION <P*rc .„„»«« 

THROUGH 3 ARE USED TO "4P tHF ,,«2 i£?r5° D I 83 AGISTERS 
4 THROUGH 7 MAP THE rJn-tIME SVSTt" ' " EG1STERS 

6. KERNEL OESC. REGS 

. USER u D K'm^n G t S enance RE m F an R uI l ° P Sec.^!hk°^, KTU MEMOrY "*"»«"*nt 

FORCED SYSTEM CRASHES 

TWO FORCED CRASHES EXIST IN THE RSTS/E MONITOR. 
1. IN THE MODULE FIP, AT »FIP E RRit + 3 4 

THE DISK DRIVER R E TURNIN G AN E RR R oU R,N G ON E OF T HE FOLLOWS, 
i. WINDOW TURN R DISK FILE EXTEND 

3> o R KS: N c G L o N .° E N ;1KK^ c c K»Ss! M '" v E0R * "»<« 

HANDLE MAGTAPE amd nrrTj D t n«'co- a--* •• •* ir « M 
DlSK§ C '• - "- wimPE OvEPuAyS whJCH RESIDE ON 



FIVE ATTEMPTS ARE MADE BEFORE FORCING THE CRASH, 
THESE ERRORS SHOULD BE LOGGED IM THE ERROR LOG FILE. 

2, IN MODULE MTA# AT <MTACHK>*16 

IF THE CURRENT MEMORY ADDRESS (MJCMA) OR THE WORD COUNT 
(MTBRC) IS CLOBBERED, THE SYSTEM FORCES A CRASH, 

****BOjH OF THE FORCED CRASHES DESCRIBED ABOVE fclLL SHOW »J P 
AS TRAPS THRU 4, . 

THE FOLLOWING INSTRUCTION IS ALWAYS USED TO FORCE A C^ASN, 

(PC-.4) 5737 
(PC-2) 1 
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2780 



DIGITAL EQUIPMENT CQRPQWATO 



DESCRIPTION: 2780 Information 

RSTS/2780 is a software package which enables a suitably equipped 

RSTS/E system to - act as a very powerful remote job entry (RJE) 

terminal. Using RSTS/2780, RSTS/E users may queue data and/or 

job control files for transmission to one of IBM's remote job 

entry packages (HASP, ASP, DOS/POWER or RJE), or to another 

PDP-11 based system. RSTS/2780 accomplishes this by appearing 

to a point-to-point synchronous data-link as an IBM 2780 Model 

1 Data Transmission Terminal. The 2780 is supported by all of 

the above-mentioned IBM programs, as well as being able to communicate 

with another 2780. Thus, RSTS/2780 emulating the 2780 can 

communicate with the other PDP-11 based 2780 emulators (Core-2780, 

DOS-2780, RSX-11D/2780 or another RSTS/2780). 

RSTS/2780 operates at data rates of 4800 bits per second over 
switched or private facilities using Bell System series 208 modems 
or their equivalents, or at 2400 bits per second on private lines 
and 2000 bits per second on switched lines using Bell System series 
201 modems or equivalents. The Bell System 801 Autocall unit is 
not supported. 

When communicating with an IBM system RSTS/2780 will operate 
using either a 2701 Data Adapter, a 2703 Transmission Control 
Unit, a 3704 or 3705 Transmission Controller, or a System/370 
Model 135 Integrated Communications Adapter. The RSTS/2780 system 
itself uses either the DU11 or the DP11 synchronous interfaces. 
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DESCRIPTION: 2780 Information (Cont'd) 

RSTS/2780 consists of two software components; a driver for the 
DP11 or DU11 synchronous data-link interface which is linked into 
the RSTS/E Monitor, and a control, program which manages the flow 
of data to and from the link. The control program, written in 
the BASIC-Plus language, provides both interactive and spooled 
modes of user interface. In interactive mode the system operator 
establishes the data-link and specifies directly the files to be 
transmitted to the remote system, as well as destination of re- 
ceived data. In queued mode, the control program transmits files 
as they are queued by RSTS/E users using the standard RSTS/E CUSP. 
Received data is stored in operator-named RSTS/E files; a seperate 
RSTS/E file for each received data file. The system automatically 
updates the name extension for each received file. 

RSTS/2780 communicates with an IBM system in a standard 2780 
format, transmitting logical records of 80 or fewer characters 
and receiving logical records of up to 132 characters. Blocks 
may be up to 400 characters in length. When RSTS/2780 is 
communicating with another DIGITAL 2780 emulator, a general mode 
of operation permits transmission as well as reception of 132 
character logical records. In either case, both transmitted 
and received files may be considered to be ASCII, in which case 
an EBCDIC to ASCII (or vice versa) translation is performed, or 
binary, in which case the data is stored or transmitted untrans- 
lated. All data-link control characters are supplied and stripped 
automatically by the RSTS/2780 software. 
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RSTS/E 2780 

RSTS/2780 enables RSTS/E (V05B) users to queue data and or 
job control files for transmission to one of IBM's Remote Job 
Entry packages (HASP, ASP, DOS/POWER, or RJE) or to another 
PDP-11 based 2780 system. 

RSTS/2780 can be used in either an interactive or a spooled mode 
In the interactive mode, the system operator establishes the 
data link and specified directly the files to be transmitted as 
well as the destination of the received data. In the queued 
mode, the control program transmits files as they are queued 
by RSTS/E users using the standard RSTS/E CUSP. Received data 
is stored in operator-named RSTS/E files. 



PDP-11 - A valid RSTS/E or RSX-11D configuration with at least 
48K words of memory, plus . , . 

o a synchronous line interface 

(DP11 or DU11) 
o a communications arithmetic element 

(KG11-A) 
o a system clock (KW11-L or KW11-P) 
IBM - Either a 2701 Data Adapter, a 2703 Transmission Control 
Unit, a 3704 or 3705 Transmission Controller, 
or a System/370 Model 135 Integrated Communications 
Adapter . 
Modems - Bell 208 or equivalent (4800 bps over switched or 
private facilities) or 

Bell 201 or equivalent (2400 bps over private lines 
or 2000 bps over leased lines) . 



Questions and Answers 

Answers to some of the more frequently asked questions on the 
two new 2780 packages are presented below: 

Question: Can one Remote Computer System like RSTS-2780 communicate 

with another; say, DOS-2780? 
Answer: Yes. 

Question: Can multiple Remote Computer System be configured in 
networks? 

Answer: No. A network has many implications which go far 

beyond a 2780 transmitting data. Just because one 
RCS can communicate with another does not mean that 
you can set up a network. Be careful not to associate 
these products with networks. 



Question: 



Answer: 



I have a customer who would like RSTS with HASP; will 
RSTS-2780 suffice? 

Be careful. People frequently confuse terminology. 
First be aware that HASP is a software system which 
is used in IBM 360 and IBM 370 systems. HASP soft- 
ware can support 2780 terminals and HASP Workstations 
2780 terminals and HASP Workstations are not the 
same. We have a HASP Workstation package (CORE- 
HASP) but it has no relationship to the 2780 packages 
RSTS-2780 is a 2780 package. 
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Questions and Answers (Cont'd) 

Question: DEC literature specifies Bell modems for use with the 
2780 products. What if a user wants to use other 
types of modems? 

Answer: We test our products with Bell modems. Since there 
are so many other modems in the marketplace, it is 
impossible for us to run tests with all of them. 
Our literature normally states "Bell Model (xxx) or 
equivalent." If the customer can find the appropriate 
equivalent fine. However, we can't help him if he 
runs into problems. 

Question* Can a customer order a 2780 configuration without 

a line printer? 
Answer: It is possible to receive data directly onto disk 

with the DOS, RSK-11D, and RSTS/E 2780 packages so 

it's possible that a customer may want to order a 

system without a line printer. 

We do not recommend eliminating the line printer. 
It will just make support more difficult; running 
diagnostics and tests will be complicated. If the 
customer insists on no line printer, then he should 
be made well aware of the fact that he will incur 
some inconvenience. 

Question: I've had difficulty getting programming documentation 
for the 2780 products? 



Questions and Answers (Cont'd) 

Answer: The 2780 Remote Computer Systems do not require 
programming manuals. Each package only requires 
an operator ' s manual which shows how to run the 
system. The documents that the customer should 
normally get are: the sales brochure and the 
software product description. An operator's 
mr.nual is shipped with the system. 

Question: Is the operation of RSTS/E-2780 identical to RSX-11D/2780? 
Answer: No. RSTS/E-2780 can be used in two modes. In one 

mode, the RSTS operator controls the transmission. 

In the other node, RSTS/E users can "queue" files 

on disk for transmission. RSX-11D/2780 only provides 

operator mode. 

Question: Are there any subtleties one should be aware of? 

Answer: The new 2780 packages are not complex. However, 

there are subtleties that can vary from application 
to application. We recommend that you consult 
someone who knows the 2780 packages well whenever 
you have a prospect. 



Ordering Information 

RSTS/2780 QPD10-AC, AD, AE , AF* 

includes single use license, binaries 
manuals, and installation. 



$4,000 
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RSTS/E DATA COMMUNICATIONS 



RSTS/E data communications systems have been designed for flexibility and 
ease of use. Line speeds of 10, 15, and 30 characters per second can be 
used remotely over dedicated or dial-up lines and speeds up to 960 charac- 
ters per second can be used local to the computer system. RSTS/E supports 
only full duplex. 

Several choices are available to configure DEC supplied hardware for 
connecting telephone equipment into the system. Among those choices are 
the DLll and DH11 communications hardware. Economic trade-offs can be 
made between these two types of devices. DLll's have the advantage of 
small incremental growth costs, are slightly less expensive except in 
installation increments of 16 lines, but do not provide the multiple line 
speed capability on each line as the DHll's do. 

Specific hardware attributes of the DH11 and DLll equipment supported by 
RSTS are given below. 



Unit 



DL11A 



Description 

Current loop (20 ma) Serial Line Interface having one baud rate 
of up to 9600. 



DLllB EIA Serial Line Interface for connection to modem having one 

baud rate up to 2400 baud locally or up to 300 baud in private 
line remote communications 



DL11E 



EIA Serial Line Interface with modem control and supporting one 
rate up to 300 baud on the switched telephone network. 



DH11-AA Multiplexer which connects a PDP-11 computer with up to 16 asyn- 
chronous serial communications lines with individually program- 
mable parameters. Remote lines have baud rates of 110, 150, 
and 300 baud. Local lines operate at up to 9600 baud. 

DMll-BB Modem Control Multiplexer which provides control to interface 
with up to 16 data sets. 

DM11-DC Provides lines for conditioning four EIA compatible lines with 
modem control. (EIA Modem) 

DMll-DB Line Adapter which implements four EIA lines for private line or 

local terminal connection. (EIA Local or Non-Dial-up Modem Control 
or private Line Applications.) 

DM11-DA Line Adapter which implements four 20 milliamp. terminals. (20 
Mill local) 
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Typical DH11 configurations might be as follows: 



16 terminals connected to the switched network 

t 



to PDP-11 UNIBUS 



DH11-AA 



DM11-BB 



DM11-DC 



v W 



DM11 -DC 



77 VT 



DMll-DC 



77 — vr 



DMll-DC 



1 *~ 

to 16 terminals on switched network 



16 terminals connected to local terminals 



to PDP-11 UNIBUS 



DH11-AA 



DM11-DB DM11-DB 

17 ^ 




DMll-DA DM11 -DA 

77 v\ — v n x^ 

JKt — — ^ to 8-20 milliamp terminals 



to 5 EIA interface terminals 



to 3 - EIA private lines 



16 terminals connected to switched network as well as some 
local connections 




to 4-20 milliamp terminals 
to 2-local terminals with null modem 
to 2 private lines with modems 
to 8-terminals on the switches network 
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Remember that the load imposed on the system by a terminal outputting at 9600 

RaiiH 1 c aVmnf -Hi** came =»e. -t-UA 1^-.^ ••-.__ j i -»i ■ _i 

— *"~ *"—• «- «« wi«= j.wau. iuipuscu jjy ot terminals — a±i outputting 

at 300 Baud. Considering that most input takes place no faster than 50 Baud 
(typing speed) , five terminals running interactively at 9600 Baud in normal 
Interactive use probably won't significantly degrade system performance, al- 
though 9600 Baud output does place an instantaneous, heavy load on the system. 

Few useful applications of terminals outputting at 9600 Baud exist. It 
is more reasonable to output to a terminal at 1200 Baud or less. 
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DH 1 1 PROGRAMMABLE ASYNCHRONOUS from: Dt.itri oiuncco 
MULTIPLEXER x3553 m 

DECcomm recently announced two new versions of the DHL1 programmable 16-line multi- 
plexer. The new versions rJesi gnar.eH TWI 1 — AF. anH nHl 1 — An are mnrp crymnani- anrl are 

priced lower than the existing DH11. 

Ycu can now order: 

DH11-AA - This is the original version of the DH11. It requires DM11 type line 

adapters depending on the type of connection (DM11-DA for 20 mAmp, DM11-DB 
for private phone lines, DM11-DC/DM11-BB for switched telephone network 
connections) , 

The DH11-AA and appropriate DM11 modules should still be ordered when 
configuration requires a combination of 20 mAmp, private, or dial-up 
lines. 

DH11-AD - New. Interfaces PDP-11 to 16 EIA/CCITT switched network lines. Includes 
modem control. Uses DJ11 type distribution panel, therefore cables must 
also be ordered for some configurations. 

DH11-AE - New. Same as DH11-AD except no modem control. 



DMll Type Modules (include cables) 







DH11-AA Distribution Panel 
requires DMll modules 



mUMHIMMfl 



DJ11 type interface panel 
used with DH11-AD and -AE 
(no cables provided) 



""^ 
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DH11 



Disc Field 
Prereq. Price Type Maint. 



Bus Amp 
Install. Mounting Load +5V 



DHll-AA(C) - 



DM11 -DA 



Programmable Asynch. 
16-line multiplexer 
and mounting panel. 
Includes space for 
up to 4 DM11 Line 
Adapters (16 lines). 

Line Adapter for 4 
20 mAmp terminals. 
Includes cables. 



11/CPU $4,400 



32 



175 



DH11-AA 
or -AC 



2 SU/ 
Sm Pan 



4.7 



170 



40 



DMll-DB 



f 
Co 



DM11-DC 



Line Adapter for 4 
EIA/CCITT lines. 
Includes modem 
cables. 

Line Adapter for 4 
EIA/CCITT lines. 
When used with 
DM11-BB, provides 
modem control . 
Includes modem 
cable. 



DH11-AA 
or -AC 



DH11-AA 
or -AC 
and 
DM11-BB 



485 



860 



11 



40 



40 



DMll-BB 



16-line modem DH11-AA 

control for prog- or -AC 

ram operation of and 

control leads for DM11-DC 
103, 202 or equiv- 
alent data sets. 



1,295 



19 



80 



2.8 



♦Mounts in DHll-AA or AC distribution panel 
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RSTS V5 DH11/DM11B HANDLER 



The DH11/DM11B service for RSTS V5 provides essentially the same 
services for the RSTS user which are provided by the DC11 service 
These services include support of the variable speed capabilities' 
and auto-answer modem facility. 

Relevent documents explaining the hardware are the DH11 Engineerinq 
Specification and "DM11-BB Modem Control Manual" ( D EC-11-HDMBA-B-D ) 

The DH11 has 8 contiguous I/O page-addressable registers which are: 



NRC 



Interrupt control, extended memory, line select 
Received character, line number and char, status 

LPR Line parameters: speeds, etc. 

CAR Current address 

BC Byte count 

BAR Buffer active: 1 bit per line 

BCR Break control: 1 bit per line 

Silo status: silo fill level, silo alaram level 



SSR 



The error logging module is used to handle certain exceptions which 
are caught by the DH11 service. These include: 

Non-existent memory referenced by NPR transfer 

Silo overflow 

Data overrun 

Break 

Parity error 

Non-existent memory errors should never occur. If they do then 
there is either a RSTS software problem or the hardware is' 
malfunctioning . 

Silo overflow errors occur when more than 64 received characters 
have accumulated in the silo, and indicate that RSTS is receivinq 
more characters than the software can process. 

Data overruns are generated when a received character is lost due 
to silo overflow. 

A break condition is generated by reception of a break signal on a 
line, break errors are no cause for alarm, as the break signal can 
be generated by the keyboard operator on many terminals. 

Parity errors would be generated by reception of characters with 
improper parity. However, since the parity sensing circuitry is 
disabled when RSTS is running, these errors should not occur; 

The DH11 is operated with the following conditions set up: 

XMIT+NEM INT ENB ON 

SILO OVERFLOW INT ENB ON 

RECEIVER INT ENB ON 

EXTENDED MEMORY BITS 
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RSTS V5 DH11/DM11B HANDLER 



AUTO-ECHO 
HALF-DUPLEX 
TRANSMIT SPEED 
PARITY ENABLE 
TWO STOP BITS 
CHAR LENGTH 
BREAK CONTROL 
SILO ALARM LEVEL 



OFF 
OFF 

^RECEIVER SPEED 

OFF 

ON 

8 BITS 

NOT USED 









i^vl^r^Sf'SuS ^^^' ?» Wh ° le V5 »»itor has 
memory bits are atLyTtlrT. ^sl^ll^?** I ^ SXtended 
so that a receiver interrun^ w n k m leVel ls set at zero 
single character? interru P fc "^ be generated on reception of a 

The DH11 service depends on the standard pctc <- 

having entries as follows? standard RSTS terminal tables 



TTILST 
TTOLST 
TTSLST 



DHir CSR 
DM1 IBB CSR 
Line parameter 
Subline number 



(Input side for KLll's) 
(Output side for KLll's 
(Word) 
(ufe.-^) 



Same as KL11 
Same as KL11 
Same as KL11 
Same as KL11 



(Byte) 
(Byte) 
(Byte) 
(Byte) 



standard TTY service CQde ^rvn^^ce^^^clerto": sroall 

TfoV^LhTo^L" Srs&SSSrr wil , 1 . check •«* ™ii u™ 

byte count before exitlnq when ! ' k? C pendln ^ output and zero 
byte count and with pendina ^r«^f Ubl - ne - " f ° Und with a * er ° 
the characters present in ?hff^ erS in lts sma11 buf fer chain all 
the DH11. Th„s P t£e e S^a£biug X S? fjf" ?»«« «?.«** out vfa 
up to 30 characters per interrupt 1S utllize <* to send 



/S--7 



RSTS V5 DH11/DM11B HANDLER 



The DMll6#has two I/O page addressable registers: 

CSR Interrupt and scan control 
Line status 

The DM11BB is operated with the following conditions set up: 

INT ENB ON 
SCAN ENB ON 

The treatment of DM11B interrupts is essentially analogous to the 
treatment of the corresponding conditions, for the DC11. The modem 
clock service which runs once per second is used to detect lines on 
which carrier has been lost and lines for which carrier has not 
appeared after ring and anser. There is at present no "hung line" 
code for DHll lines, since this condition has not yet been encountered 
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VT05/VT50 



VT05 DIRECT CURSOR ADDRESSING 

Direct cursor addressing of the VT05 display keyboard is done 
by using PRINT statements of the form 

PRINT 7*N%, CHR$(X%) ; 
where X% is one of the following codes. The ; following the 
argument is needed Lo pievent automatic carriage-return. 
The codes are as follows: 

8% backspace cursor 
11% cursor down (line feed) 
14% direct cursor control (see below) 
24% cursor right one position 
25% cursor left (don't use on VT05) 
26% cursor up 

28% home down (don't use on VT05) 

29% home up (move cursor to upper left-hand corner) 
30% clear to end of line 
31% clear to end of screen 
Direct addressing is established as follows: 
if Y% is the line number (Y-axis) 
and X% is the column number (X-axis) 
and the upper left-hand corner is (1,1) 

PRINT 5*N%, CHR$(14%); CHR$ (31%+Y%) ; CHR$ (31%+X%) ; 
positions the cursor to (X%,Y%) 
Note the following functions: 
2000 DEF FNQ2 (X%,Y%) : 

PRINT ^11%, CHR$(14%); CHR$ (31%+Y%) ; CHR$ (31%+X% ) ; 
2010 FNEND ' position cursor to (X%,Y%) 
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Vtud DIRECT CURSOR ADDRESSING (CONT'D) 

2100 DEF FNQ3(X%,Y%) : 

PRINT 7*11%, CHR$(14%); CHR$ (31%+Y%) ; CHR$ (31%+X%) ; 
CHR$(31%) ; 
2110 FNEND i position cursor to (X%,Y%) and clear to e.o.s. 
2200 DEF FNQ4(X%,Y%) : 

PRINT 7*11%, CHR$(14%); CHR$ (31%+Y%) ; CHR$ (31%+X%) ; 
CHR$(30%) ; 
2210 FNEND ! position cursor to (X%,Y%) and clear to e.o.l. 
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The following table will be useful when writing Drograms that interface with the VT50 It 
details the processing of each 7-bit ASC II character received at the terminal. 

When the VT50 is in . . . 



RE 



. . Normal Mode the next ASCI I character 
received is treated as data. 



Octal 
Code 



011 



012 



Char 



000 


NUL 


001 


SOH 


002 


STX 




i — r\/ 


004 


EOT 


005 


ENQ 


r J6 


ACK 


007 


BELL 


010 


BS 



HT 



LF 



013 


VT 


014 


FF 


015 


CR 


016 


SO 


017 


SI 


020 


DLE 


021 


DC1 


022 


DC2 


023 


DC3 


024 


DC4 


025 


NAK 


026 


SYN 


027 

030 * 


ETB 


CAN 


031 


EM 


032 


SUB 



A£ 



Action Taken 



None 
None 
None 
in one 
None 
None 
None 
Rings Bell. 

Backspaces 

Cursor. 

Horizontal Tab 
Moves cursor to 
the next tab stop. 
Tab stops are set 
every eight 
spaces to the 
72nd character 
position. After 
the 72nd position, 
TAB moves the 
cursor to the right 
one position. 

Moves Cursor 
down one line 
and scrolls if 
required. 

None 

None 

Moves Cursor to 
left margin of 
current line. 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 



Resulting 
Mode 



Normal 



Normal 
Normal 
Norma! 

Normal 
Normal 
Normal 
Normal 
Normal 
Normal 
Norma! 
Normal 
Normal 
Normal 
Normal 
Normal 
Normal 



RE 



. . Escape Mode the next ASCI I 
character received is treated 
as a command. 



iE 



Action Taken 



Normal None 

Normal None 

Normal None 

f\*ormai None 

Normal None 

Normal None 

Normal None 

Norma! Rings Bell. 

Normal Backspaces 

Cursor. 

Normal Horizontal Tab 

Moves cursor to 
the next tab stop. 
Tab stops are set 
every eight 
spaces to the 
72nd character 
position. After 
the 72nd position, 
TAB moves the 
cursor to the right 
one position. 

Moves Cursor 
down one line 
and scrolls if 
required. 

None 

None 

Moves Cursor to 

left margin of 

current line. 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 



Resulting 
Mode 



Escape 
Escape 
Escape 
Escape 
Escape 
Escape 
Escape 
Escape 
Escape 

Escape 



Escape 



Escape 
Escape 
Escape 

Escape 
Escape 
Escape 
Escape 
Escape 
Escape 
Escape 
Escape 
Escape 
Escape 
Escape 
Escape 
Escape 
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. Normal Mode the next ASCII character 
received is treated as data. 



Octal 
Code 



033 

034 
035 
■ 036 
037 
040 
041 
042 
043 
044 
045 
046 
047 
050 
051 
052 
053 
054 
055 
056 
057 
060 
061 
062 
063 

064 

065 

066 

067 

070 

071 

072 

073 

074 

075 

076 

077 

100 

101 

102 



Char 



ESC 

FS 
GS 
RS 
US 
Space 



+ 



/ 

1 
2 
3 
4 
5 
6 
7 
8 
9 



> 

? 

@ 
A 

B 



A£ 



Action Taken 



Sets terminal 

in Escape Mode. 

None 

None 

None 

None 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 

Displayed 



Displayed 



Resulting 
Mode 

Escape 



Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 



^ 




Escape Mode the next ASCII 
character received is treated 
as a command. 



Action Taken 



Sets terminal 

in Normal Mode. 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

Moves Cursor 
up one line. 
None 



Resulting 
Mode 



Normal 

Escape 

Escape 

Escape 

Escape 

Normal 

Normal 

Norma! 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 

Normal 
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! WhentheVTSOisin.. 



^l^F" 



. . Normal Mode the next ASCII character 
received is treated as data. 



Octal 
Code 



110 
111 

■» ■* n 
I I C 

113 



134 



135 



136 



Char 



H 



K 



114 


L 


115 


M 


116 


N 


117 


O 


120 


P 


121 


Q 


122 


R 


123 


S 


124 


T 


125 


U 


126 


V 


127 


W 


130 


X 


131 


Y 


132 


Z 


133 


Q 



3 



A 



^£ 



Action Taken 



Displayed 
Displayed 

L/iSpiaytru 

Displayed 

Displayed 
Displayed 
Displayed 
Displayed 
Displayed 
Displayed 
Displayed 
Displayed 
Displayed 
Displayed 
Displayed 
Displayed 
Displayed 
Displayed 
Displayed 
Displayed 

Displayed 

Displayed 



Displayed 



Resulting 
Mode 



3~£ 



. . Escape Mode the next ASCII 
character received is treated 
as a command. 



Action Taken 



Resulting 
Mode 



Normal Moves Cursor Normal 

to home position. 

Normal None Normal 



INUMIIcW 


erases miy irum 
Cursor to bottom 
of screen. 


iNurmai 


Normal 


Erases screen 
from Cursor to 
right margin. 


Normal 


Normal 


None 


Normal 


Normal 


None 


Normal I 


Normal 


None 


Normal 


Normal 


None 


Normal 


Normal 


None 


Normal j 


Normal 


None 


Normal j 


Normal 


None 


Normal j 


Normal 


None 


Normal j 


Normal 


None 


Normal ; 


Normal 


None 


Normal 


Normal 


None 


Normal \ 


Normal 


None 


Normal '■ 


Normal 


None 


Normal ; 


Normal 


None 


Normal : 


Normal 


None 


Normal j 


Normal 


Enables Hold 
Screen Mode. 
(See page 19 .) 


Normal I 


Normal 


Disables Hold 
Screen Mode. 
(Seepage 19 .) 


Normal 

i 

| 


Normal 


All lines from 
top of the screen 
up to and includ- 
ing cursor line 
are printed. 


Normal { 


Normal 


Enables Auto 
Print with top 
line printed first. 


Normal 

i 
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IWhent 
L 


IP VT50 is in 






i 






Z2^f: ■ .. 






. . . Normal Mode the next ASCI 1 character 
received is treated as data. 


I 
1 


. . . Escape Mode the next ASCII 
character received is treated 


_._ „ 






i 
_j 


as a command. 




yi . — r— 




~^F~ .: 


Resulting 
Mode 


^ 




Octal 
Code 


Char 


Action Taken 


Action Taken 


Resulting 
Mode 


137 




Displayed 


Normal 


Disables Auto 
Print after 
current lines 
are copied 


Normal 


140 


\ 


Displayed as @ 


Normal 


None 


Normal 


141 


a 


Displayed as A 


Normal 


None 


Normal 


142 


b 


Displayed as B 


Normal 


None 


Normal 


143 


c 


Displayed as C 


Normal 


None 


Normal 


144 


d 


Displayed as D 


Normal 


None 


Normal 


145 


e 


Displayed as E 


Normal 


None 


Normal 


146 


f 


Displayed as F 


Normal 


None 


Norma! 


147 


g 


Displayed as G 


Normal 


None 


Normal 


150 

L 


h 


Displayed as H 


Normal 


None 


Normai 


151 


i 


Displayed as 1 


Normal 


None 


Norma* 


152 


) 


Displayed as J 


Normal 


None 


Normal 


1153 


k 


Displayed as K 


Normal 


None 


Normal 


! 154 


j 


Displayed as L 


Normai 


None 


Norma! 1 


J155 


m 


Displayed as M 


Normal 


None 


Normal 


156 


n 


Displayed as N 


Normal 


None 


Normal 


! 157 





Displayed as 


Normal 


None 


Normal 


1 160 


D 


Displayed as P 


Normal 


None 


Norma! 


161 


Q 


Displayed as Q 


Norma! 


Mone 


Normal 


'162 


r 


Displayed as R 


Normal 


\ione 


Normai j 


163 


s 


Displayed as S 


Normai 


Mone 


Normai 


164 

i 


t 


Displayed as T 


Normal 


Mone 


Normal 


165 


u 


Displayed as U 


Normal 1 


Mone 


Normal 


166 


V 


Displayed as V 


Normal ! 


Mone 


Norma! 


167 


w 


Displayed as W 


Normal f 


^one 


Normal 


170 


X 


Displayed as X 


Normal None 


Norma! 


171 


y 


Displayed as Y 


Normal None 


Normal 


172 


z 


Displayed as Z 


Normal None 


Normal 


173 


f 


Displayed as D 


Normal None 


Normal 


174 


, 


Displayed as / 


Normal None 


Normal 


175 


i 


Displayed as B 


Normal None 


Normal 


176 


«M 


•Displayed as > 


Normal None 


Normal 
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Delete 


None 


Normal None 


Escape i 



-_l 
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Typing the key 
labeled 



Ik 



A 
B 
C 
D 

E 



T 
G 

H 



K 

L 
M 
N 
O 



P 
Q 
R 
S 



Transmits the following 
7-bit ASCII code 



IF 



101 
102 
103 
104 
105 



106 

107 

110 

111 

112 

113 

114 

115 

116 

117 

120 

121 

122 

123 



i(e-Q> 



Typing the keyU\ 
labeled / 



Transmits the following! 
7-bit ASCII code 




BACK SPACE 

TAB 

LF 



RETURN 

ESC 

SPACE BAR 

\ 

DELETE 



010 
011 
012 



BREAK 



015 
033 
040 
134 
177 



Does not transmit an 

ASCII code 

Acts as a forceable 

interrupt (see page 19). 



The keys listed above are uneffected by the SHIFT key. For example typing both the 'TV 
key and holding down the SHIFT key and typing A" transmit ASCII 101 
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The following keys are effected by the SHIFT" key. 



Typing the key 
labeled 



3L£ 



Unshifted transmits 
the 7-bit ASCII code 



ik 



With the SHIFT key held 

down transmits the 7-bit 

ASCil code 



/ 



061 
062 
063 
064 
065 



1£ 



066 
067 
070 
071 
060 



055 
075 
133 
073 
047 



054 
056 
057 



041 (!) 
100(@) 
043 (#) 

044 ($) 

045 (%) 



136(A) 
046 (&) 
052 (*) 
050(() 
051() 



137 (_)" 
053 (+) 

135(3) 
072 (:) 
042 (") 



074 (<) 

076 (» 

077 (?) 






Holding down the CTRL key affects the ASCII signal transmitted by the next key typed, it 
forces bits 7 and 6 to 0. For example, holding down the CTRL key and typing the letter G 
(107) forces 107 to be converted to 007 (BEL). The one exception is holding down the 
CTRL key and typing the BREAK key. This reinitializes the terminal (see page 19) 

The following keys do not transmit any signal outside of the terminal. They are used to 
direct internal terminal activities. 



Typing the key 
labeled... 




Unshifted directs 
the terminal to.. 



With the SHIFT key 

held down, directs 

the terminal to... 



3^ 



CONT 


Display (scroll) 




one new line when 




the terminal is in 




Hold-Screen 


t 


Mode (see page 19 ) 


PRINT 


Produce a hard 




copy image of the 





entire screen. 




Display (scroll) 

12 new lines when 

the terminal is in 

Hold-Screen 

Mod^ (see page 19;. 

Compliments 

Auto-Print Mode 

(see page 20). 



16 



Some Pointers on RSTS/E 
Hardware Problems 



or 



What To Do If The Diagnostics Run 
& RSTS Doesn't 

Confidential - NOT For Customer Use 



Gary Alles 
Sept, 9 r - 1974 
Confidential 

Notes on RSTS-E System Hardware Configuration 

1. A KW11-L is less expensive and more reliable than a KW11-P. 

2. An RP03/RP11-C is bigger, faster, and more reliable than an RK05. 
If your customer plans to expand, start him out with an RP. 

3. An RP03, only system must be sold with TM11/TU10 for proper 
file backup. An RK/RP system should have tape. 

4. Mos Memory helps to increase system thruput significantly, but 
not advised unvil purchasing memory from 88K, because core is 
cheaper. Mos is now much more reliable than it was in the early 
history of the 11/45. 

5. FPP when installed on 11/45' s helps thruput of Math Package 
routines. You can see the differance. 

6. The DH11 is a much more desireable TTY interface compared to 
using several DLll's. It costs far fewer bus loads, and requires 
relatively little care for it's driver. 

7. It is possible to get an 8K user space in a 32K system by leaving 
out most of the basic Plus features but the spooling programs 
and a few other cups such as UT5DPY require 12K user space to 
run. Unless you are very certain of your customers application, 
avoid 32K systems. It is far wiser to start your customer out 
with 48K core (3) MFllUP's. Parity is now required. 

8. It is cheaper to buy 32K core than an RS03. Even if your system 
has exceptionally high Disk activity already, it is probably 

wiser to purchase core as opposed to swapping disk. 32K MF11UP-$12,6K 

9. 1 RK11 & + 5 RKQ5's t-31, 400 = 6M wds. slow, unreliable 
1 RPH C, '+ 1 RP03^, 31,880 = 20M wds, fast, reliable 

10. 1 RS03 + controller 256K wds = $14K 

1 RS04 + controller 512K wds = $18K 

2 RS03 + controller 512K wds = $23K 

11. You should have enough core to keep Jg of your jobs in core. 

(Assume largest size jobs. 
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If you encounter similar errors during SYSGEN on the RK 
on the same system that has errors during SYSGEN on the 
RFj you may very well have a UNIBUS or memory problem. 



Before getting too deep in this problem, first be certain 
that the distribution kit is valid, and that it is being 
read correctly. Tape skew and/or RK05 head alignment may 
be cause of problem. if rsts/e nas been configured at 
another site, and it too fails suspect the hardware. 
There are no known bugs in the sysgen procedure other 
than mis-interpretation of DLll-C's and DLll-E's under 
automatic sysgen. If you have two different types of 
DOS supported disks, and sysgen fails on one but not the 
other, you may have found a faulty disk unit. 



Make sure all known patches are correctly installed. 



t7-> 



If you suspect memory, be sure to adjust strobe according 
to latest technique, not by setting strobe in the middle 
of the window. A minimum 50 NS window is required, or 
your memory should be replaced. Strobe should be adjusted 
25 NS back from latest failing point in strobe window. 
Do not swap boards between memory sets unless you re- 
strobe. 



Strobe normally should not be bothered with on very new 
systems, but older systems (Apr '74 or older) often are 
not found to have sufficient window sizes, and are fre- 
quently out of adjustment. 
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If you suspect UNIBUS, be sure BUS-loading on both sides 

of BUS repeater is about equal. (18 loads or less) minimize 

UNIBUS cable length wherever possible even if you have to 
reconfigure system. 

Foam the UNIBUS. 

Inspect bus cables very carefully for holes, sharp crimps, 
bubbles, and cuts. 

nU^^I, TTHTVOTTO ~^-.,4- -i ~~ « ..^ 4 J ^ .»_.... J ... 1 J__> X. — . n_. .~_ f 1 J #. 

>^J.J.V^>_JA. V11XWVU lW«l.iUVJi XI V <_/.I.V4. £/JL. WAX11IX U.JT *-v JfUWCJ. hj u jfjf -*- -*- *= O O* 

Power Cords . 

Be certain that BUS signal levels on both sides of BUS 
repeater are same or nearly so. Watch for noise. 

Extensive engineering changes are being made to the BUS 
structure itself. BG lines are now supposed to have pull- 
down resistors at each interface. BUS Driver & BUS Receiver 
chips have been re-engineered, and are to be replaced with 
new chips when chips are available & conditions warrant. 
M920 ' s can cause problems, two new versions are being worked 
on. 

Preferred BUS Configuration is for systems w/o Mass. BUS Devices 

1. Processor 

2. Core 

3. Non Buffered NPR Devices 

4. Buffered NPR Devices 

5. ROMS & Communication Options 

1% precision terminators are available for the Unibus 
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Remove unused Dill's, they cause all kinds of problems 
for no easily explained reason. ^ ™ s 



Traps and/or Jumps to zero have been known to be caused 

by H^ ing DL11 ' S ' faUlty TM11 ' S and time-out problems 
in RK05 s . 



Vectors and addresses on DLll's are commonly incorrectly 
jumpered, check priority jumper card in DLll's and make 
sure it has insulating tape and is properly installed. 

If you have static, use H7002 or H7003 line filters. 

Recheck speed setting for XTAL in DL11. check for loose 
connections. 



OS- 



Be absolutely certain all power supply connections are tight, 
power supplies are not susceptible to normal vibration, 
(noise or spikes are not induced) and that power supplies 
are correctly adjusted. This can not be assumed. 

Check power plug polarity and proper grounding. 

Line voltages from factory to customer site can and will 
vary. Check for noise and transients. 

Margin H720 power supplies for DC Lo sensitivity. (-15 uts) . 
Use of a DUM is preferred when adjusting power supplies. 

2. Scope DC-LO 

3. Adjust -15 until DC-LO is in middle of its possible values 

Pull on all Mate-N-Lock connectors and make sure wires 
are in tight. 

Make sure moving head Drive Packs are formatted on your 
machine. 

Make sure air filters are clean. 

Check power- fail circuitry on 11/45' s. 

Monitor DC-LO while system is running. 

Sector Transducer and Head Alignment should be correctly 
adjusted. 
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Never slow down processor to avoid problems. This will 
cost much in the long run t if not cause more problems . 

Make sure all 11/40 processor options are correctly 
jumpered. 

Margin Processor. 

Investigate all grounding and static problems. 

50% humidity is required. 

Check for temperature variations and don't mount cold 
packs. 

Clean tape & disk drive heads. 

Check tape head alignment and visimag tape. Use quality 
tape. 

Check for any potential mechanical connection problems. 
Time-dependent power problems may occur. 
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Check ECO levels of all options. 



If your system is a year behind in ECO 
levels, you may well get RSTS/E to run, but the system 
probably won't be» as re] iable as a nev? one v,"^u 1 ' q "^ 



n~$ 



ODT 



k-etMi opt: 



V* F,\A £kjf fat i.&r 






Wha-^e ? 



? 



o fries; $T 
ff 



J^siA OX)' 



o f T5o*/ ; o>0*r 



X*Xxx* y Weir) 



f 
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°*TE| APRIL 80,1973 

OBJECT! R3T8 ODT, *ITH DISK LOOK AMD NEw SYNTAX 



P'f*OM| 



HIKE SMITH (FORMERLY IN DEC SOFTWARE DEVELOPMENT} 
(CURRENTLY FI X ING CARS FOR GRINS A7g ) 
(TINCLE»S LOTUS CENTER, 31R SPRING STD 
CwAtErtOwN, MASSACHUSETTS* 02172 5 



PROJECT NUMBERl P-67-07668 

RSTS DEVELOPMENT 
RSTS/E DEBUGGING AID 

FIUNAMEl ODTDOC.* DOCUMENTATION 

0D T.* SOURCE PROGRAM 

I?f T 5| 0DTD0C.5 



BY! 



JIM MILLER (MAYNARD, 12*2, 3173) 



SYSTEM 40 IDI 140,1315 



ACCOUNT "BRAMHALL" 



THE MATERIAL INCLUDED IN THIS DOCUMENT LIMTT^n in 

aWSS/MI"?: "Auction "Speeds'anT J r D 4 Nc 

CL*?2 S t5 5!,rf? 4 , XNS I BUCTl0N TIMES 0WUY - "-L SUCH 

eHS!e , ?H{*2Bfe: lTH0UT N0TICE ' "° »• 8 °und to 

N0TICE "ICE 0TICE 



|MlL P^t'th.Ti^ 1 ?^ 8 /^'?? IMPR0V EHENT S 4 N D I LIKE THEM 
ALL BUGS *ILL BE FIXED *ITH 600D HUMOR AND REASONABLE SPEED. 
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»b«rr«. or 'ft** 9 UOCV»tWT»* 

TN£ PURPOSE OF T*is DOCUMENT IS to OFSClHt Thf uSUbf OF TM* PPT 
ynAr «AS Buli-T FOR \j$e By N3TS, this 00^ n*3 a pt*FMUNt SYNTAX 
S /~^AN THE NORMAL OOT AND HAS CtRTAlN «tNH4vCtMtM5« ( 0* COuRsr n • 

{ ^18 IS NOT TO SAY THAT IS ENTIRELY DIFFERENT, BUT ENOUGH SO THAT 
V,ou SHOULD READ AT LEAST THIS FIRST PAGE. 

THE MAJOR DIFFERENCE IN THE SYNTAX IS THE USE 0^ THE M I M 
CHARACTER, IN SHORT IT IS NOT NEEDED EXCEPT TO DELIMIT MULTIPLE 
ARGUMENTS GIVEN TO COMMAND. YOU SHOULD THINK ABOUT THIS ONE CAUSE 
IT CAN BE A PAIN IF yOU TyPE ExTRA «j»»s, 

ANOTHER DIFFERENCE IS IN THE WAY REGISTERS ARE OPENED. THE OPEN COMMAND 
IS USED TO OPEN A REGISTER AND TO RETYPE THE CONTENTS OF A REGISTER. 
SO IF YOU OPEN A REGISTER AS A wf)RD, AND THEN TYPE THE CHARACTER THAT 
IS USED TO TYPE A BYTE THE REGISTER IS STILL OPEN AS A WORD. THE REGULAR 

odt re-opens the Register as a 6 yte. 

n l €t another difference is the use of the m s m (single instruction) 

qmmand, the w s m cqhmano does not set a m oe but operates like the 

" command In that It causes an Instruction to be executed, (maybe 
tou should read the whole document). 

the purpose of this version of oot is to allow the user to look 
at the disk, this is described later on, what really happened is 
that the whole thing got re. written cause i couldnit resist it. 

NOW COMES THE OPINION PART, THE SYNTAX IS MUCH CLEANER AND MORE 
J^IERFUL. THE CORE REQUIRED By THE CODE AND OIRTy DATA IS ALSO 
I CH LESS THAN THE STANDARD ODT, BU* W HEN yOU ADD THE DISK I/O 
%njFFER OF 1000 BYTES It u^ES SOMEwHERE AROuNO 6200 BYTES T°TAL, 
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-"*••».■ . • w •»••-. 



THE CURRENT SOURCE OF OOT MAY AE ..,„„ ., ,. 
LOADED JUST ABOUT ANYWHERE th?L ?! EMB ^°» LINKED, AND 
^S USED TO SET THE LOrtl? Inn2!SS 11 *. $y * 6 ° L C * LLE0 " OW GOOT" That 

■ THE ASSEMBLY IS RELo"tablE ShVS'tS?! V A880l - uTt "SEMBLItS. 
i)RGODT«." "ELUCATABLE THEN THIS SYMBOL IS SET TO 



THE SIZE OF OOT 18 AS FOLLOWS, 
s"cV /0 l9 T z tB * TtS > 



CODE 
TOTAL 



5200* 
8240 



• THIS TS iPPunvTu.rc- -.- _.. .. 

" "-» run t»ACl FIGURES TRY ASSEMBLING IT. 

SOME THINGS TO NOTE ABOUT STARTING ODT. 

AND SE Ts" V£c%$R L lN\ R ^ T ^ S f T T ° THEI " * N "»" VALUES 
ALLOW I N 8 IT A U V L C EN ?R \\\f H °: 8 »« ™ «° TO ?". # THI8 IS TO 
GIVES CLEAR BREAKPOINTS ^ ™ y ltl%%ll? n i$$$l ™ 

THERE ARE TWO ENTRY POJNTS DEFINED THAT M AY BE OF INTEREST 

"O.ENTR" IS AN ENTRY THAT MAKF9 flnT tuti,i, »r 

BREAKPOINT. ALL lew! bSfIkZ «c Il-nif HIT AN UN OEFIN E n 
CORE. IF v6VpRtirf*n idSS *.S2.* RC R F M °VED FROM THE USERtS 

YOUR .PC. YOU a£e S?rt? M-" E 2 TRy * ITH °U T PTERINS 
rt YOU ARE RIGHT BACK WHERE YOU STARTED FROM, 

To'coSJiS T Se NS A T SSrESS G OP T ^ J5S t 2 NI "* L »" 6 * T HE ««« 
IS EQUAL TO .O.SoT*"! "°- O0T ". "C ADDRESS OF -O.ENTR" 

ifoi&'y* ma^ m ;Su th?n;^:i^t;/ s ^^" d t to ■•■ ™» » 

WITH PDP. l0 HIN,C AND «I. K IS E :H^ N H T jH X ; c B ? ¥ 8 PEi%0 T R H1 A 8 Md\°" UMM 

in :?t$&\%%?i% TYPI u !" ;° »"» ™ C omm ANO input ; outine 

CHARACTER OUTPUT ROUTINE (IDEA cnS»T« TU ^ T " DRIVEN VI * r »* 
CHECKS EACH CHARACTER it. J*,. »!'" y NATHAN TEICHHOLT/) *N D 

LONG LISTS OF CH CE R LL C s TER N^*i OR J USm. TH " * LL0 * 8 »TOPpi5^ OPPOSE 

8Mcffi»^^ THE WAIT LOOP OF 

COMES UP T HE CHARACTER IS STASHED A,AY ll I E,£?'.""E N «™ e IM>UT 'LAG 
INPUT ROUTINE D0E S KEEP LOOKING AT rtl np,„ "^BUFFER. THE CH»R ACT EP 
NOT WORK UNLESS ODT Is DOING output ?L ?^ T / UG ' tHE SCMEME n «S 
007 13 DOING OUTPUT SINCE TT rVlrl.t^ I"! ..*? E _ Ia 'LMQST * L . AYS THAT 



Stt f<i; 



19 DOING OUTPUT SINCE if , r „% * " SE IS A LMOST ALWAYS 
»= NOTIFIED. ' IT IS ECh0tnG INPUT But ThERE ARE CASES 
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DESCRIPTION OF NOTATION- 
ALL NUMBERS IN THIS DOCUMENT ARE OCTAL NUMBERS UNLESS THEY 
EXPLICITLY ARE SUFFXxfcD By A « , " IN *HICH CASfc THEY ARE DECIMAL. 

I iC CONSTRUCTS— 

OCTAL NUMBERS-- NOTATION <OCT> 

THIS IS AN OCTAL INTEGER IN THE RANGE ^77777 TO 08000?, 
IT'S USE IS CONTEXT DEPENDENT AMD THE ABOVE RANGE MAY 
ALSO BE FURTHER LIMITED BY CONTEXT. 

THERE ARE SPECIAL CHARACTERS DEFINED TO REPRESENT USEFUL 

octal numbers within odt's guts, these characters are 

TO BE USED INTERCHANGEABLY wlTH OCTAL NyMBERS. THEY ArEi 
C VALUE STORED IN USER'S CONSTANT REGISTEH 

Q LAST octal Quantity typed 

. ADDRESS OF LAST OR CURRENTLY OPEN REGISTER 

VALUES— NOTATION <VAL> 

«VAL> DESIGNATES AN EXPRESSION, WITHOUT PARENtS, WITH THE 
FOLLOWING OPERATORS DEFINEDi 

SUBTRACTION, UNARY MINUS 
+,<SP> ADDITION 

* multiply by 50 and add 
9 relocation computation 

iurARAT0R8— 

VALUES ARE SEPARATED BY THE CHARACTER " I » 
AND BY COMMANDS, 

A SPACE I3 EQUIVALENT TO A PLUS FOR ADDITION, t h IS ONLY HAS 
MEANING WHE* T rt E PREVIOUS CHARACTER WAS NOT A SEPARATOR 
WHICH SAYS YOU CAN T YpE ALL THE SPACES YOU WANT wHlLE YOU 
ATTEMPT TO FIGURE OUT wHAt THE NEXT THInG TO Do IS. 

ADJACENT OPERATORS DO NOT EXIST, ALL OPERATORS ARE SEPARATED 
BY AT LEAST ONE NyLt WHICH ODT LIKEs TO CALL A «0»« (A TRUE 
MATHEMATICIAN MIGHT wINCE), 



NOTESJ 
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HC1.I8TEK MANIPULATION COMMANDS — 
OPENING REGISTERS — 
^H- <VAL><OPEN> 

THIS FORM OPENS THE REGISTER INDICATED BY <VAL> AND TYPES THF 
CONTENTS IN THE MODE SPECIFIED 8Y TmE <QPEN> COMMAND. THIS MODE 
REMAINS EFFECTIVE U*TIL ANOTHER . COMMAND OF THIS FORM Is TYPED, 

FORM-- <OPEN> 

THE UST OPENED REGISTER IS PRIMED IN THfe MODE SPECIFIED. 
THE MODE IS EFFECTIVE FOR THIs ONE COMMAND. 

«OPEN> 



/ 


OPEN 


A3 


OCTAL 


WORD 


\ 


OPEN 


AS 


OCTAL 


BYTE 


n 


OPEN 


A3 


AN3H 


WORD 


I 


OPEN 


AS 


ANSII 


BYTE 


X 


OPEN 


AS 


RADIX 


50 *ORD 



CLOSE REGISTER COMMANDS- 
FORM— <VAL><CLOSE> 



THIS FORM CAUSES <VA L > TO BE STORED In THfc CURREM.Y 
OPEN REGISTER A N P ThE ACTION SPECKED BY <CLOSE> TO BE 

ta kent if <val> is null the* no data is stored and 0*1* 
the action is taken. 



ose>-< 



<CR> 

<LF> 

A 



CLOSE AND NO SPECIFIC ACTION 

CLOSE A N D opEn THE NEXT LqCATIon m Oown m 

Close and open the next register *op« 
close and open register specified by 
ThF contents of ThE open register 
taken as a pc relative address. 
as x but open is absolute address 
as but open is branch displacement 

CLOSE AND RE- OPEN REGISTER LASt 
OPENED BY AND EXPLICIT OPEN COMMAND, 



/?-L 



INTERNAL REGISTER REFERENCING— 

FORMS — f^ nsroio uidk ««-*. »•.»-«„ .,_ __ 

*L INTERNAL CONTROL REGISTERS 
*NL INTERNAL CONTROL TABLES WHEREl 

L IS THE CODE LETTER FOR THE SPECIFIC 
REGISTER OR TABLE, 

AND 



IS THE POSITIVE OFFSET TO The TABLE, 

this is a number v<*n<*i7 and it doubled 

AND ADDED TO THE ADDRESS SPECIFIED 
BY «L« TO GET THE CORE ADDRESS. 



DEFINITIONS OF L— 

CONTROL REGISTERS— 



* USER'S STATUS REGISTER 

p odt»s running priority 

A argument register 

M MASK REGISTER 

L LOW MEMORY SCANNING REGISTER 

M HIGH MEMORY SCANNING REGISTER 

C U8ER'S CONSTANT REGISTER 

Q LAST QUANTITY TYPED REGISTER 

I ?i?!L£ /0 yUFp eR START ADDRESS (255, WORDS) 

f ADDRESS OUTPUT FORMaT SWITCH 



!n H memT* AB0VE IS THE SAME AS ™ E 0R0ER 



CONTROL TABLES— 



B 0-7 BREAKPOINT ADDRESSES 

S 0-7 BREAKPOINT PROCEED COUNTS 

I 0-7 BREAKPOINT INSTRUCTION STORAGE 

* 0-3/ RELOCATION BASE ADDRESS OR SEGMENT NUMBER 

T 0-3 CONSOLE/TTY DEVICE ADDRESSES 

RELOCATION DISK u^lTS (»K TYPE OIsK) 

RELOCATION DISK UNITS (RP TYPE DI$K) 



U 20-27 
U 30-37 



NOTESl 

?£l l RE i JS THESE C0K STRUCTS A S A METHOD OF GENERATING 
ADDRESSES AS FoLLQWS! ^CNtRA T iNt, 

Jplc?Fr?0 T 9 J S T M F L r T «^ IE ^^ 2 AN ° ADDE0 T ° THE ADDRESS 

?he Jul! : lKter! ° LEmR ' ThE nARD REGister case I s 

TS E rTlB 8 LE N R L EFE A REScE: UV ^ '" ^ °"™ "^ >""»" 
CONTROL REGISTERS CANNOT BE USED "ITH OFFSETS. 
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*CGISTER USAGE — 



L_nn* 



UllV DE8CRIPT "" °F TH £ US* 0E OF SELECTED REGISTERS APPEARS 

" Eicf ^--- NaT - - -tVt<^ ster . 

ST?o'gET I2t^ T ^° ED A3 A " AV TO CUT THE TYPING 
RtG?8?ER »JC» 111 t2 F D °^'c" HEN 0DT IS L 0*«0 THE 
POINT STnBFn t tlc J 1l * D OHESS OF ODT'S STARTING 

fujNr stored there (type "c»»), 

$Z ls\i D o°T*Zll° F . '"J..!!*" I/O BUFFER USED IN THE D!SK 

ASSUMES THAT*THE%nFFFR"?J IT™ ,1"™ * T ANY TIM£ - ° DT 
1000 OCTAL) IN LENGTH !«n ,5? 6 ' u° ° 3 t612 ' 8YT£S OR 
13 IN "IZ" F the cSn«2»I II U FIRST *°*°' 9 *OORESS 
ATTEMPT TO USF U n?^I E , TS ° F $Z " * RE Z E »° * N 
YOU. 8 E DISK U0K CAU8Es OOT TO GUESTI0N 

" O^nInG^ItIonI 8 FtVT?? 83 < B « E *«"OlNTS, SEARCHES, 

REGIS?ER L ?0 m° NS F Vnl'lill TJ^ll/ 11 * THE " FOn »"" 

IN RFi nr *.iBi c «i U3ER WANTS THE ADDRESS TvPFA 

w ""^°- T E ""^^^"^RoJ^;sr; E LocA T1B LE 
$p sRtKs ?H u ?s\ T e r; s Y TE c R Pu To PR r^/- — - a ■««,. 

wHEnMf AT h?? T Jf, T ° HUN A T TME PRIORITY OF T HE USER 
n„r? J, EY . HlT ThE1 « BREAKPOINT. If T HE bEGI.TFd 

SYNTAX OF REGISTER REFERENCES— 



lett'erS^/p.It^ ^ 01 " 1 " 6 PR0B ^ m "ITH OOT.S SYNTAX 
"I I example" "' A VAL " E AN ° U8ES LETTE «s as a oelim 

ARE EVER HADE l"o D ""*KSr BE J^EJuU COMM '* 08 • " ™ 



HE 
HEy 



/f-J^ 



SO TO THE PROGRAM, "S" ......... 

l*ll 52r.*.«.?| T ! THE CPL " S AGISTERS 0-7, AND PS 

R"s°u L ; H o E E u s 8 ?:R?:^i^-L N R T ^R o o G 8 R\ M o r- " is acti °* - ™ - 

SYNTAX — 

<VAL>6 SET THE USER'S PC TO <VAL> ANC 

START THE TARGET PROGRAM, 

G USE THE CURRENT SETTINGS OF THE USER'S 

REGISTERS TO START THE PROGRAM. 

NOTES— 

A «G" COMMAND SETS S.I. MODE TO «OFF% IE. GO GOESU 
ERRORS- ODD ADDRESS. 
IOCEED FROM BREAK, "P" ••—.... . 

.•«... mm mmmmmmmmmmmmmmmmmmmm „ p|( mmmm 

oil T ?i?, C ?rH« F D n T rn P " 0CEt0 FR0M THt "*T BREAKPOINT HIT 8Y 
BReIk *e! THE N ° RHAL BP6AKS iCW AND ^E SINGLE 

SYNTAX — 

<VAL>P P«OCEED THRU THE CURRENTLY 

ACTIVE BREAKPOINT <yAL> TIMES 
BEFORE STOPPING AGAIN. 

P <VAL> DEFAULTS TO i IF NOT SPECIFIED. 

NOTES — 

A «P« COMMAND SETS S.I. MOOD T «OFF«, 

THE PR^T^S^e!""" AD0BESS " " fCUTED *"** 
* «6» TO A BREAKPOINT CAUSES THE BREAK TO HAPPEN. 

SS^t^peTtTeo^o'i^I 4N0 MAV 8E pro « eoed ThRU ' 

N8IAAAAAA WHEKEj 

N IS THE BREAK NUMBER, 0-7 
WHICH ARE USER SET, AND 8 IS 
THE CODE FOR A SINGLE INSTRUCTION 
BREAK, 

DEF?S t VJoR D ?»i W , T 2 APN I^ERRUPT AND HAS NO BREAKPOINT 

?HE n^FoT J o AT r L ° C £ Tl0N lT TYPE3 "BE- FOR T HE ENtRy 
THE USER PC Is SET TO T HE LOCATION FOLLOWING T HE "TRAP" 

ERRORS- NO ACTIVE BREAKPOINT, 
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SIT A BREAKPOINT, «B" —-—........ 

iiMsns: a; !i. c t;^2: exa.™ ««•"-' "" 

SYNTAX — 

B CLEAR ALL BREAKPOINTS 

<0CT>B CLEAR ONLY BREAKPOINT #<OCT> 

<VAL>|<0CT>8 SET BREAKPOINT *<OCU AT LOCATION 

<VAL>, 

<VAL »» 5 LET ODT PICK THE BREAKPOINT TO SET 

AT LOCATION <VAL>, 

NOTES— 

THERE ^^THREE CON T ROL TABLES ASSOCIATED Wl T H A BREAK, 
SNB THE ADDRESS OF THE BREAKPOINT. 
22? luf ^ 0CEED C °U N T OF THE BREAKPOINT. 
»NI THE CONTENTS OF THE ADDRESS AT THE 

BREAKPOINT WHILE THE USER IS RUNNING. 
0<«N<>7 WHERE N IS THE BREAK * 

IF YOu SHOULD PERCHANCE GET IN T ODt *ItH BREAKPOINT* 

*ight try Looking at the m» table Tn find thf 

D?Ji2tFd „'' c lEari n c breakpoints In thi 3 state is 
disaster, try looking f r »a»i 8 IN „e M ory For a star?. 

ERRORS- BAD BREAKPOINT NUMBER. OOO ADDRESS, RAN OUTH BREAK8 . 
SINGLE INSTRUCTION MODE. "S" ........... 

E T XECUTES M AS D IF 8E " I&TS.IS, ? 7 T " APS 0N E «" INSTRUCTION 

SYNTAX — 

S t2L CU IL A 3INGl -E(l) INSTRUCTION A ND 

THEN BREAKPOINT WITH #8. 

<OCT>S EXECUTE <OCT> INSTRUCTIONS AND THEN 

BREAK WITH *8. 

NOTES— 

w T ^H U ?HE^^?TH H L ! D f X f CUTI0N 0F C^TAIN INSTRUCTIONS 
TH "mltl* ll B V °* ARE S °Lir5LY ENTRENCHED IN THIS ODT 
lot VqhIiJI III l8 AB ° UT *» * 0RD * IN ^NGTH AND IF " 

FR0n5 of ?HE R JtL^t^T DI3K BUFFER THAT X 8 IN 
rKONT OP THE STACK THAT Is A L T OF STACK SPACE, 

ERRORS- NONE CHECKED FOR BY ODT. 

/8-/0 



*uuwttf5 A NG COMPUTATION AND CONTROL- 
COMPUTE OFFSETS, "0« 

.... — _ *^™ * — - — — — ............. MQH ^^ 

THIS COMMANDS PRINTS TMF pr Dti ayt^ 

ATWIXT T»0 LOCATIONS. X? dSeS I T p^ D , BRANCH DISPLACEMENT 

AM QUITE ABLE TO 00. T C0WRECtLy """h I NEvER 

SYNTAX — 

<VAL>0 COMPUTE OFFSETS FROM u , •. T0 THE 

ADDRESS <VAL>. 

<VALi>| < VAL>0 COMPUTE OFFSET FROM < mi> T0 <VAL> 

IF <VAL> IS NULL OPT THINKS ZERO, 
NOTES* • 

THE rSa^Mt 1 ^, ° FFSET IS ^EFIXeO 8V * » . AND 
TP SEE . A, I S ! L 'CEMENT IS PREFIXED BY A *>» ° 
Ti' Set • AS ♦ TYPE «-Qi« t • 

ERRORS- NONE POSSIBLE, 

KOMPUTC RELOCATION VALUE, •»«•• 

-——--...........„„„...., „ KM mmmm 

ARE ^SPUY t D C IN^^So T EN D {Ly'op RE |;E OC MO T DE l" E ?i, S l! R AN ° °"»" 
SYNTAX — 

<VALM<OCT>K COMPUTES AND TYPES THE RELOCATION 

expression using register <oct> 

AND THE ADDRESS <vAL>, 

JlA'^^Is'nSED 1 r T ? EN nr T ? E $ UR * ENT L0CAT ^ 
V*» t' J5 u s ED, IF <0CT> IS FMPTv THPHj nnr 

.CJ«THE RELOCATION TABU s\oOK^ T EOR ?SJ 
NOTES — 

i^zrotizr^ n : l k : ll f l ollows « *« same 
* HESE ' «T%wsg\ T f L °: regi9ter use ° t ° 

ERRORS. NO RELOCATION REGISTERS DEFINED. 



1] 
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ADDRESSING COHPgTATION AND CONTROL (CONT'D) — 
SET RELOCATION REGISTER, "R" 

lMnrii?p n 40 ,T! L 2 C r ION BE8I9T "8 AN 2 e UNIT REGISTERS 
OMCRIPtfoN 5I?-I« I ? u S2 MM * NO ' V0U SH0ULD CONSULT THE "DISK LOOK" 
SHORT "2? ell* 1 V"" D °CU«ENT FOR THE N IT TY-6RITTY. IN 
SHORT- » S 0.7 ARE CORE. 10., 7 ARE RF DISK, i9 '. i7 ARE 
RK DISK, AND 30-37 ARfc RP DISK, 

lul lllV:ll D ° MT , £XlSr ' 20 " 27 *» E R* UMT REGISTERS, 
Tut .... * ND 30-37 ARE RP UNIT REGISTERS. 
THE VARIATIONS ON ThE >r* COMMAND SET AnD RESET THOSE 60 REGS. 



SYNTAX — 



0. 



■n -■»■■ "ttoo, iu »i AND ALL "U" TO 



<0CT>R "tSET ONLY THE REGISTERS SPECIFIED BY 

<OCT> TO -I AND 0, 

<0CTt>KVA L >|<0CT»R S ET RE|_OC REGISTER < CT> TO 

CONTAIN <VAL> AND SET UNIT 
REGISTER <OCT> TO CONTAIN 
<0CT1>. 

ISL*2 SfcNCE 0f * N ARGUMENT TO ThE MULTIPLE 
FORM OF T HE "R» COMMAND MEANS T MAT ODt SETS 
THAT VALUE TO 0, u"lT REGISTERS 0-17 ARE 
DEFINED TO CONTAIN ZERO'S. 

NOTES- THESE ROISTERS m»y HE ADDRESSED OIRECTLv AS INTERNAL 
? »I2 T ?F 8 ^T T ? E l8 N0 R * KISE CHECKING DONE BY THE 
In ^i 2SS l8T f" 4DD R E SSInG COMPUTATION ROUTINES 

T? DD T^r «??^r°!°. THAT Y0U U3E THE ""' COMH^ND 
TO DO THE SETTING AND THE «JR/$U» FORMS TO DO 
LOOKING, 

ERRORS- YOU HAVE SPECIFIFD A REGISTER THAT DOSEN-T EXIST 

NOTES (AGAIN).. 

«.Vh*!f S 1 !^ 1 ^" C°uL0N. t CARE LESS ABOut WHETHER 
""" VE *"" NCH ° " P82 'S (USING RPH CONTROLLER) Or 
al?2pV U ;«V? E " >ll ' C CONTROLLER) CAUSE THEY Loo* 
BieKfirM^ ^ IVt 2 LEVEL " H °* E «R, THE RP03 Is A ° 
BIGGGGG DISK Caw,i>B0 BloCkS) AnD IT IS HARD To REPRE<»F W T 
80.000 TrtINGS w ITh * 18 BIT RELOCATION RFGTSTEB TuP 

ITS" ?2P« na C ° ME U " ° J * N """ "?« * ME S r1 R 40 S.R 
BLOCKS. THE PROBLEM IS RESOLVED BY A SPECIAL HACK wtTu 

HE' !p%R U SpR,^ GI , 8 If? 8 B ,3a - 3rU) - UNITS •"*«! TENTHS 
LONER ha.p nc T L l 'oI T REGISTEH) *»E "«0 TO INOICATE THE 
Hill t*r 2!.« J* 3 ' UN1Ta 10 -« 7 R EFER TO THE UPPER 

SfLOCA^n TrTJ " ™ AT ™' m *- IS AOnE ° TO THE 
RELOCATION SEGMENT NUMBER (CONTENTS OF JSI.T7R1 tr tmc 

CORRESPONDING UNIT REG (Je^u I^\2 10 J ? the'rP D^VER 
lFiulil 1TJ K ° 0UBLE RR E CISI0N(3? BIT8).S2r EX «pLE 

Xt2 3 «5 »«■"■},", T. Y0U C0MMND °° T TO OPEN A * «D 
2« ««*.'! ' Y0L ' " IU GET w0 R° 26 OF SEGMENT NUMBER 
40,000. A1«.A», M , 0K H p UNIT 8 (IF iou \ ll B N £ U J E R E ME> 



13 
WORD SEARCH w JtH MASK, "w" ———...„.....„. 



"ui» .... 



?HAT «r , B fI N f E J ™ E tIMITS DEFINE0 ** 'IL- AND «SH» 

l 5?ItJSS !ic T ^ D 1N THF M0DE 8ET B * THE LAST OPENED 

tSe IIlmI IMlW "* " " 4 " 0EC " ""H THE MaIk AND 
THE VALUE IN »**» I S "ANDED" AND T H E COMPARE 

«» ™°y t N x r n i He MASKED V A L i i FS 



SYNTAX— 

<VALi>MVAL>W SET «$M« TO <VALl> AND 

SET M $A" TO <VAL> AND 
PERFORM THE SEARCH. 

W USE THE CURRENT SETTINGS OF M $A" AND 

»$M« TO 00 THE SEARCH. 

rnoliISn R ; VAL1> 0R <VAL> IS NU «-L THEN THE 
CORRESPONDING REGISTER IS NOT SET. 

NOTES-- 

5e H scribed H later! E INtErhuPtED By the <ro> COMMAND 

ERRORS- NONE, 
NOT NORO SEARCH WITH MASK, «N»« 



... I! Mi «... 



THIS COMMAND OPERATES SIMIURY TO The »w« roMMAMn tyrpoi 
tHfVL 1 ^IJ!" 8 THAT ^ AFFERENT UN DE S ° """ 

fo H R E ;a K cS!!s A s x a?£ F : HE 8mA * is the same *» «■ -■. «m 

SYNTAX-* 

N SEE THE "H" COMMAND FOR REGISTER 

SETTINGS, 

NOTES — 

THE SEARCH May BE INTERRUPTED BY THE <R0> COMMAND, 
ERRORS- NONE. 



//WJ 



MEMORY SEARCHES (CONT'D)*- ^ 

EFFECTIVE ADDRESS SEARCH WITH MASK, "E «E 

THE »£»♦ COMMAND PRINTS ALL LOCATIONS BETWEEM »$l w AND "$H" THAT 
RELATE TO THE "$A« VALUE AS FQLLOwSl 

EQUAL, SAME ABSOLUTE ADDRESS, 

PC RELATIVE, THE LOCATION In CORE IS ASSUMED TO BE 
A RELATIVE <M0DE«6, REGISTER-7) ADDRESS. 

"BR" DISPLACEMENT, THE LOCATION IN CORE IS ASSUMED 
TO BE A CONDITIONAL BRANCH INSTRUCTION, 

SYNTAX — 

E SEE THE "W« AND "N» COMMANDS FOR VARIATIONS 

NOTES — 

THE SEARCH MAY BE INTERRUPTED BY THE <RO> -COMMAND, 

THE EFFECTIVE ADDRESS IS ALSO A MASKED SEARCH, THIS IS 
TO ALLOw RANGE SFARCHES, 

PLEASE NOTE THAT T*E "E" SEARCH WILL ALMOST ALWAYS 
GIVE "FALSE DROPS**. 

ERRORS- NONE, 

* A LEFT OVER FROM THE OLD DAYS IN I,R, 

LIST MEMORY ON DEVICE, "L" « L « mmmm 

THE CONTENTS OF THE CELLS AfwiXT "SL" AND *»SH" AND LISTED ia 
UP ON THE SPECIFIED DEVICE. 

SYNTAX — 

«OCT>|<VAL>|«VALl>L <OCT> IS THE OUTPUT DEVICE WHERE 

OH NULL IS THE CONSOLE AND 1 
IS THE LPii, <vAL> AND <vALi>, 

if present set *sl m and »sh« 
respectively. 

NOTES — 

THE «SL« LIMIT Is ANDED WITH A *\7777Q<* AFTER 
BEING PICKED UP AND BEFORE USE, 

THE "L'» COMMAND MAY BE INTERRUPTED AT ANY TIME VIA 
THE <RO> COMMAND, 

THE LISTING IS PRINTEO IN THE MODE SET BY THE LAST 
OPENED REGISTER, 

ERRORS* NONE, 



/ 



?-/f£ 



M19C COMMANDS — 

^Itt MEMORY WITH *ORDS* "F* ——...„„„.... 15 

IN THE REGISTER DEFINED By^,H^f S bEEn^IueS! L ° CAT1 ° N SET 
SYNTAX — 

F "25 ™ E C0NT **TS OF M *A« TO DO THE FILL 

FROM »$t« TO «$H« INCLUSIVE, 

<VAL>F D S T AS TH ^VE G ! 3TER M$AH T ° <VAL> AN ° ™ fe " 
NOTES- 
ERRORS- At'. YOUR OWN, 
4.-TER CONSOtE TTY ASSIGNMENT, "T« 



"T" — — 



SYNTAX— 

<VAl>T <ll I H Sn5 / ?« P iS E A00RE8 S E S BEGINNING AT 

<VAt> FOR CONSOtE I/O, 

T PDpfIi T r« Ii, t 0EVX " T ° ™ E STANDARD 

PDP-11 CONSOtt TTY ASSIG N MEnT (177560) 

NOTES— 

THE GIVEN ADDRESS IS ASSUMED TO RF THt u flft ota*u« 

ERRORS- Att YOUR OWN, 
PRINT EXPRESSION ON LEFT ON RIGHT, h.h 

A T S HE *N EX o"t E * S L SI 2o N R °: V4LUE °" " E "FT OP TH E ... „ PBINTE0 
SYNTAX — 



■»■» .... 



<VAL>i 



PRINT <VAL> AS AN OCTAL WORD. 
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HISC COMMANDS <CONT«0) — *■* 

CANCEL AND RETURN, «<RO>" — m«r >m - 

THIS CHARACTER IS ABLE TC STOP THE CURRENT ACTION OF OOT, 
NOT TO BE CONFUSED ulTH THE USER, AND RETURN TO THE COMMAND 
INPUT ROUTINE VIA THE ErrOr ROUTINE, THE CHARACTER IS TESTED 
FOR IN THE TYPE-AHEAD ROUTINE A*D *HEn DETECTED GOES 
TO THE ERROR ENTRY AND THIS RESETS TYPE-A H EAD AnD CAUSES 
ODT TO wAJT POR SOMETHING TO DO, 

SYNTAX — 

<*0> STOP ODT AND *AIT FOR COMMAND, 

NOTES — 

USE THIS COMMAND TO STOP SEARCHES SINCE THE TYPE-AHEAD 
USES THE OUTPUT ROUTINE TO LOOK FOR INPUT, 
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OVERVIEW OF THE "DISK LOOK* 

rue Hnrev i aaisii e wve-t.ei • mi. « «. AM .. ..*,►« ... -.*._.. .- — _ 

VERSION OF THE RELOCATION FACILITY, IN GENERAL THE USER IS ABLE 

OPEN ONE WORD ON A GIVEN DISK, EXAMINE THAT WORD, MODIFY AND CLOSE 
AT WORD. THE SAME HOLDS FOR BYTES, 

THE DISK MAY BE OPERATED UPON IN THIS MANNER ONLY, AND NO 
ABILITY TO SEARCH DIRECTLY OR OTHER SUCH OPERATIONS IS IMPLIED, 
THE ASTUTE HACKER MAY FIGURE SOME THINGS OUT THOUGH, 

THE USER IS GIVEN THE ABILITY TO CONTROL THE BUFFER USED IN THE 
DISK LOOK FACILITY. THE INITIAL BUFFER DEFAULTS TO THE 256, WORDS 
IMMEDIATELY PRECEEDING ODT»S WORKING STORAGE, 

THE DISK IS ADDRESSED VIA AN EXTENSION OF THE ODT RELOCATION 
SCHEME, THIS WILL BE SPECIFIED IN DETAIL A COUPLE OF PAGES LATER. 
THE SCHEME ALLOwS THE USER TO SET UP TO EIGHT BASES ON AN 
P s ANDRK (EIGHT f OR ALL EIGHT POSSIBLE UNITS) 

MD THEN SPECIFY UP TO A 16. BIT OFFSET TO THAT BASE. THE BASE 
tS A 16, BIT SEGMENT NUMBER In THE STANDARD RSTS FORMAT. 
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'0J^0*8| THERE *" E " "LOCATION REGISTERS DIVIDED INTO GROUPS AS 

Ct . REGISTERS, NUMBERED 0-7 ft0R..7»» 

EACH REGISTER CON T4I N 8 * 19 . BIT ^RELOCATION CONSTAT. 
tr DISK REGISTERS, NUMBERED 10-17 (SI8R-J17R, 

" C S H EGM E E 8 NT S lElS e 0N I 4 ^ 8 ° Nt 1S « » "MEN \uMBER 
(A SEGMENT BEING A 256. aORD BLOCK OF DISK ALA RSTS) 

THERE ARE 20 ADDITION*,. r EGI8Te « p „ 98 DEn ^ D Ag ^^ 
R" UNIT AND DISK REGISTERS, NUMBERED 20-27 

HVZllln !!! .*???"?. CEMENT) REGISTERS 
„ „„ UPIi , KtUJ3TtRS 

*P UNIT AND DISK REGISTERS,, NUM PE R 30-37 

JJafrJ^" " P * 0D «ESS (SEGMENT) REGISTERS 
S30U-S37U RP UNIT REGISTERS 

-nO! I/O BUFFER— 

-5o^ T ^ v arsMi^oT?SiS?;*s: e :52: , 5! r °"s s •*• * sts *•.«. »° 

SCHEME REQUIRES A 400 «D . ?2« «^ 4 ?.2 ! 0R ° UNITS - ThIS 
THE REGISTER ADDRESsId T «7 To no ???,°?!„ U8 I2 ™ E VALUE ST0 * ED » N 
•Z IS SET TO POINT TO A BUFFER tSat II J^!cI HE tNITI * U vALUE IN 
«.. WORD, I^DIA^! .l&T^g SK".? St'STx! V. M *.«. 
^OISK I/O DESCRIPTION— 

SAVE THE CALLING -PS". 

WAIT UNTIL THE OISK IS NOT BUSY. 

SET PRIORITY TO *7* ' 

PERFORM THE READ OR WRITE 

WAIT UNTIL READY 

RESTORE THE CALLING "PS" VALUE 

CHECK THE DISK FOR ERRORS. 

EXIT, 

Ensured/;? a D ^\I 8 / SJ% £ D0 ^ p ^ s J 6 h J e s ^co^r ""«m»cy is 

THE DISK 8ATUS 8 I HAVE T «e2 S ?« L T mSr Ex?C«5^ 8m A *° * £ST ° RE 
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GENERAL FORM — 

<0CT1>,<0CT>«QPEN> 

•0R- 
«VAL><0PEN> 

«0CT1> 13 THE RELOCATION/UNIT Pair TO BE USED 
(RANGE 0-37), 

<OCT> IS THE OFFSET TO BE ADDED TO THE RELOCATION 
UNIT PAIR SPECIFIED (RANGE Z-177777). 

If THE CONSTRUCT «<OCTl>,« IS ABSENT, THEN CORE IS ADDRESSED. 

FOR EXAMPLEi 

0I0I0R 

0,1462/ XXX 

HAS THE SAME OUTPUT (NOT EFFECT) AS TYPINGi 

1462/ XXX ' 

IF <OCTl> IS ABSENT THFN THE VALUE DEFAULTS TO ZERO, 

FOR EXAMPLEi 
0,1324/ XXX 

HAS THE SAME EFFECT (AND OUTPUT) AS TYPING! 
,1324/ XXX 

hi* EXAMPLE — 

ISd L ?S\JIm!L1 fSrMoi ? SL RST8 L0CATED BEGINNING IN SEGMENT 61(8) 
mL;Sl^r?^R L 2?L AT ^Ri 7 2N^%, TME C ° RE IMAGE ' ^ "* ^ 

a:»5 M/ xxx j& itio^ieix niwi; ^ii&u\?^ ex 

( NH1CH IS ACTUALLY W R D 362( 8 ) OF SEGMENT 6 0( 8 ) 

The opened location may b e operated upon as i F it was corf. 

(WHICH IN FACT IT 131) * 
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HOT COPWiliS aUHMRf, LETTERS AND MUMlERS — 
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letter 


COMMAND 


r^- 




h 
c 

D 
I 


BREAKPOINT SET/RESET 
CONSTANT 


EFFECTIVE ADDRESS 


F 
6 
H 
I 
J 


FILL 
60 


K 

L 

M 


RELOCATION VALUE COMPUTE 
LIST MEMORY 


N 



NOT WORD SEARCH 
OFFSET VALUE COMPUTE 


p 

Q 
R 
S 

T 


PROCEED 

QUANTITY 

RELOCATION SET/RESET 

single instruction 
alter console tty 


u 

X 
Y 


WORD SEARCH 



REGISTER 

ARGUHENT 

BKPT ADDRESSES (0-7) 

CONSTANT 



FORMAT CONTROL 

BKPT PROCEED COUNTS (*>-7) 

HIGH SCAN LIMIT 

BKPT INSTRUCTION (0-7) 



LOW SCAN LIMIT 
MASK 



ODT PRIORITY 

QUANTITY 

RELOCATION (0-27) 

STATUS WORD 

TTY ADORESSES (0-3) 

UNIT REGISTER (20-27) 



0-7 



OIT'S 



DISK LOOK BUFFER 
USER REGISTERS (0-7) 
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ODT COMMAND SUMMARY, CHARACTERS— 

2] 
ACTION 



ruioirrc d 

V • • ^ ri n V ? W r» 



open octal byte 

open octal *oro 

open ansii byte 

* open ansii word 

% OPEN RADIX 50 «ORD, 3 CHARACTERS 

«c«> close location 

* lf> close, open next in ♦ sequence 

close, open next in • sequence 
close, open pc relative address 
Close, open indirect or absolute 

CLOSE, OPEN OFFSET AS BRAnCh 



< 



*E?URN TO LAST ExPLICTILY OPENED LOCATI 



ON 



4,<alt> ' register reference prefix 
i argument separator 

f relocation operator 

♦><sp> addition operator 

subtraction operator 
* multiply by 50 and add 
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CURRENT PLACE ADORESS 
TYPE LEFT SIDE 0* RIGHT 
*$S? CANCEL COMMAND AND RETURN 

ERROR WARNING 
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U^US^D LETTERS In COMMANDS •"ADHIJMmuXYZ 
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\ETTER8 JUST PLAIN UNUSED — D J V X Y 
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BASIC - PLUS FILE PROCESSING 



Theodore R. Sarbin 
Digital Equipment Corporation 



INTRODUCTION 



These notes were prepared to introduce the BASIC programmer to the use of 
files in a RSTS system on the PDP-11. Most of the language features of 
BASIC-PLUS are used and it is assumed that the reader is familiar with 
them. For those who know BASIC but not the extended language features a 
terse summary is provided in Appendix A. A more complete exposition is 
included in the BASIC-PLUS language manual. If there is any difficulty 
in understanding the example programs then the language manual should be 
available for consultation. When reading these notes the temptation to 
just read the text and not to attempt to understand the example programs 
should be avoided. The examples and diagrams are integrated with the 
text to such an extent that there is little benefit to be gained from 
just reading the text itself. 
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RSTS FILE PROCESSING 



1 . GENERAL 



There are fundamentally three methods of performing input/output operations 
in BASIC-PLUS. They are serial input/output, virtual array, and "Record 
10". The first type is achieved through the use of the INPUT and PRINT 
commands; virtual arrays are defined through the use of the DIM statement; 
and "Record 10" (which is something of a mis-nomer) uses the GET, PUT, 
FIELD, LSET and RSET commands as well as the functions; CVTxx, CHR$, and 
ASCII. All types of input/output operations make use of the OPEN and CLOSE 
commands. 

2. DEVICE NAMES, FILE NAMES, AND LOGICAL UNITS 

I/O operations in BASIC-PLUS are designed to be as device independent as 
reasonable. Thus in the I/O statements there are no specific references to 
devices. Instead, each statement contains a reference to a logical unit or 
"channel".- (This is strictly a conceptual channel which should not be con- 
fused with a hardware device called a channel). Each "channel" is simply a 
number from one to twelve which potentially identifies the specific device 
which is to perform an I/O operation. Thus in one program logical unit or 
channel 3 could be the line printer and channel 11 the card reader, while 
in another program channel 3 could be'nagtape unit #2, channel 1 the paper 
tape punch and channel 12 a file on the disk. The association of the 
specific device with a channel number is done with the OPEN statement. The 
OPEN statement specifies a device, if necessary a file name, and the chan- 
nel number to associate with that device. The form of the command is: 
100 OPEN file name AS FILE n 



The file nao»e is a statement which completely describes where the data is 

to be found or put. It specifies the physical device as well as the name 

that is to be assigned to the information. The complete file name consists 

of the following parts: . 

DV: NAMEXX.EXT [111,222] <60> 

Device File and Project, Protection 

Name Extension Programmer Code 

Names Number 

The Device Name specifies the name of the device on which the file is locat-' 
ed. It also may specify the unit number. Thus a file might be located on 
the number three cartridge disk and would be referenced as "DK3:". A list 
of device names can be found in the language manual. If no device name is 
specified then the public disk is assumed to be the one referenced. Most of 
the examples cited in thes'e notes use the public disk for simplicity but in 
real applications it is uncommon to use other than private disks for produc- 
tion data files. 

The File Name and Extension specify the name of the data. The name itself 
is any sequence of six or les-s characters from the set of letters and numbers. 
A filename need not be specified when the device is of the type which does 
not recognize file names. (The only devices which do recognize filenames 
are disks, DecTape and, in some cases, Magnetic Tape). The only require- 
ment about the filename is that it be meaningful to those who use it. The 
extension is a three character field which is usually used to describe the 
contents of the file. An extension of ".BAS" means that the file contains 
a BASIC-PLUS source program and an extension of ".BAG" means that the file contains 
a BASIC-PLUS compiled program. The programmer can assign any file extension 
he wants as long as it is meaningful to him. He need not assign any ex- 
tension at all. The file "ABCDEF" is unique and distinct from "ABCDEF. BAS" 
or any other file with "ABCDEF" as the file name and an extension. 
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The project- programmer number field specifies in whose account the file 
is to be found. If it is omitted (and it usually is) then the system 
assumes that the account that the job is logged in under is the account 
that the file is, or is to be, stored in. Writing into a file stored under 
someone else's account is possible only if he has explicitly permitted 
that. Creating a file in someone else's account is generally not poss- 
ible. (It can be done only by a privileged user. The System Manager's 
Guide contains a discussion of privileged users.) 

The last field is the protection code. This determines who can or cannot 
access the file. It is only meaningful when the file is being created. 
It is described in the Language manual and need not concern us further 
here. 

The file name is specified either as a string literal (the file name in 
quotes) or as a string variable which contains the filename. As an 
example the following could be used: 

100 INPUT "WHAT IS THE INPUT FILE'S NAME", A$ 
110 OPEN A$ AS FILE 4 

In this case the user of the program supplies the file name at the time the 
program is run. The n in the OPEN statement is simply a number from one to 
twelve or a variable which contains such a value. To terminate the assoc- 
iation of a device and a channel we use the close statement and specify the 
channel number to close. For example: 

100 CLOSE n 
alternatively we can close several channels in one command: 

100 CLOSE m, n, o 
The open and close statements have several other options which will be des- 
cribed later but these statements create and terminate an association between 
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device and/or file names and numbered logical units or channels. Thus by 
changing the definition of the device or file for a specific channel we can 
change the devices the program uses without revising the program. 

3. SERIAL INPUT AND OUTPUT 

This is the simplest form of input/output. Whatever device is in use is 

simply treated as if it was a (possibly \iery fast) teleprinter. Where we 

learned that to print on the teleprinter we used the PRINT statement we now 

make use of the SLme statement but specify on which channel to print. Of 

course it is necessary to first associate a device or file with the channel 

by means of an OPEN statement. Thus to print a table of squares and square 

roots on the teleprinter we would have used the program: 

TOO FOR I = 1 TO 100 
110 PRINT I, SQR(I), 1*1 
"120 NEXT I 

•'to print the same table out on the line printer we would use the program: 



__ r,r- .t ■ T i-sTOP THE LOOP 

±S ': *^*L K "• TERMINATE THE ASSOCIATION 

150 END 



11-M 



To write a file of names and addresses onto the disk we might use the 
following program: 



100 OPEN "NAMES.DAT" FOR OUTPUT AS FILE 1 ! CHANNEL INITIALIZATION 

1JH INPUT "HOW MANV NRMES"; NX !FIND OUT HON MANV NRMES 

120 PRINT #1, NX !AND PRINT IT INTO THE FILE 

13-0 FOR IX = iv TO NX ! START THE LOOP 

149 PRINT "INPUT THE NAME" !®^THE INFORMATION 

1T0 INPUT LINE H$ !0N EACH NAME AND 

160 PRINT "INPUT THE NUMBER AND STREET" ! AND ADDRESS 

170 INPUT LINE A* 

1*~J PRINT "INPUT "HE CITY, STATE, AND ZIP CODE" 

- i% INPUT LINE C* • !NOW IT CAN BE OUTPUT 

.88 PRINT #1, N*; At-; C$; ! PR I NT IT INTO THE FILE 

210 NEXT IX !END THE LOOP 

228 CLOSE 1 

230 END 

You will notice that a new element has been added to the OPEN statement. 
When we specify that a file is for OUTPUT that means that this is a new 
file and any previous files of that name should be deleted first. Now 
suppose that we want to use this file to print on the lineprinter all those 
names and addresses for which the ZIP code begins with a 9 (i.e. those in 
California). The following program would do that: 



100 OPEN "NAMES. DAT" FOR INPUT AS FILE 3 "SET UP CHANNEL 3 AS THE FILE 

110 OPEN "LP:" MS PILE 5 ' f AND CHANNEL 5 AS THE LINE PRTR 

128 INPUT 4*3, NX '.GET THE NUMBER OF FILE ENTRIES 

130 FOR IX = ix to nx ! start THE LOOP 

140 INPUT LINE 4*3, A*<JX> FOR J.X=1X TO 3X ! GET ONE ENTRV 

150 OX = LEN<AS<.3X>> : 

JX=JX-1X UNTIL MID<A$<.3. V :>, OX, IX^" " 

OR JX = OX 'LOOK FOR THE ZIP CODE 

160 PRINT 115, R$<KX>; FOR KX=1X TO 3X 

IF MIDCASOX.:-, JX+1X, lX> = 'y-" AND JXOOX 

! PRINT ON LINE PRTR 
•IF ZIP CODE IS SOOIXK 
170 NEXT IX !STOP THE LOOP 

ISO CLOSE 3, 5 : END ! ALL DONE 



/f 
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The previous program is intended as an example. Of course if it were a real 

application we would want to do more checking for valid data and probably 

at the time the data was entered. Also you will notice a new specification 

in the OPEN statement. When we specify that a file is to be opened for 

INPUT that means that we expect the file to already exist and that if it 

doesn't then that is an error and the program should not proceed. If we 

specify neither FOR INPUT nor FOR OUTPUT then the system will use the file 

of the specified name if one exists and if not it will create one and use 
it. (A somewhat anomalous situation exists here in that a file may be opened 

FOR INPUT (ie: it must exist) and then we can perform output operations on it 

or we can open a file FOR OUTPUT thus creating it and later in the same program 

we can read it.) At this point we have seen how to associate the name of a device or s 

file with a logical unit or channel number and how to access devices and 

files in a serial manner. Next we will take up the two methods of accessing 

data randomly. 

4. VIRTUAL ARRAYS 

This is a very simple technique for accessing disk files. We simple equate 

files on the disk with dimensioned arrays and treat them in the program as 

if they were simple arrays. Thus we can associate the name of a disk file 

with an I/O channel through the use of an OPEN statement and then associate 

the name of an array with its size and with the I/O channel through the use 

of a DIM statement: 

Thus: 

100 OPEN "FILE. DAT" FOR INPUT AS FILE 2 
110 DIM n, A%(10$), B(1024) 

The above statements simply state first that an association is to be made bet- 
ween the file "FILE. DAT" on the public disk and channel two and that the file 
is to already exist. Then we say that the file is a virtual array whose names 
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are to be Afc(n) and B(n). Thus to read the file we simply reference the 

elements of the array. To find the sum (as S%) of the first 500 elements 

in the file v/e might use the following statement: 

120 S% = 0% : S% = S% + A%(J%) FOR J% = 0% TO 499% 

When the loop is executed we effectively read from the file 500 times. To 

write into the file we simply place our virtual array reference on the left 

side of a replacement operator (equals sign). Thus to write the first 1024 

elements of the file with the first 1024 even numbers and then the next 1025 

elements with the firs^ 1025 real numbers starting at zero and increasing by 

one-half we' could use the following program: 

130 A%(I%/2%) = 1%. FOR 1% = 0% TO 2046% STEP 2% 
140 B(I%) = I%*0.5 FOR 1% = 0% to 1024% 

One thing to remember is that in the program it looks just like we are refer- 

ing to an in-core array, however, we really are reading and writing on a 

disk which is very much slower than reading and writing in core memory. Thus 

we must expect that our program will run much more slowly when we use virtual 

arrays. Another special aspect of virtual arrays of strings is the handling 

of the length of the string. When we store a string in core we keep track of 

its length internally by means of a character count. However, when we place 

the string arrays on the disk we need to be able to uniquely identify each 

one without checking on the length of the others. To accomplish this 

efficiently, all of the strings in any one string array must be the same 

length and that length must be an integral power of two (1,2,4,8,16,32,64, 

128ydi^&6). To define this length it is placed following an equals sign 

just after the right parenthesis in the DIM statement. Thus: 

100 DIM #8, A$(100H, B$(20,20)=64 . 

would state that the file open on channel eight consists of two arrays of 

strings: A$ consists of 101 strings each 8 characters long and B$ consists 
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of 441 strings. each 64 characters long. If you do not specify the length 
.of a virtual string array then the system will assume that it is 16 
characters. Virtual string arrays are handled just like in core string 
arrays would be handled except that they are much slower. Examine the 
following example which accepts a list of names from the teleprinter and 
places them on the disk in a virtual string array. Then it sorts the 
string array using a fairly inefficient sorting algorithm and it prints 
the sorted list on the line printer. Thus: 

16R OPEN' "NAMES" FOR OUTPUT AS FILE 2 ! CREATE. THE FILE 

.-,.;", p.jm #2 N*< f 9fiG> = 64 IARRAV RS FILE 

4*fl INPUT "HOiTmANV NAMES"; NX 'HOW MANY NAMES IN THE FILE 

l":n INPUT LINE N*<IX> FOR IX = OX TO NX-1.X 

IREflD THE NAMES INTO l.Ht FT Lb 

•i 4 P mv ='nv-2X " 'NOW FOR THE BUBBLE SORT 

155 FX = eX !FX IS THE INTERCHANGE FLAG 

169 FOR IX = OX TO MX : 

IF N$aX> > N$<IX+1X> THEN T$=NS<IX> : 

N*(IX> = N*<IX- l lX> : 

N*'(I5i + iX> = T$ : 

FX = IX 
•173 MEXT IX : flX r *X -iX : GC'TO'156 UNLESS FX-JX :T : -iIS I? TH7 ::s;^?JF. 

T;: : ; •::.,•,, .. f_ l- - » h r r:j L c ", !AL'_ SC?» = !> ^' Jy [ -^ 

19* PRINT II H$<IX>; FOR IX = OX TO NX-1.X ! THH SORU.r> LI;>« 
/kh CLOSE 2,3 . END ! ALL DONE 



This is a simple example of sorting a file on the disk when the file is a 
virtual array. Virtual arrays are very easy to use and when their lack of 
flexibility is not a problem they can be used in place of record I/O when 
random access is desired. Virtual arrays, however, have high overhead and 
programs which use them will run slowly. The third method of processing 
files which we will take up next is the most flexible and the most power- 
ful, but it also requires more work on the part of the programmer. 
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5. RECORD ORIENTED INPUT AND OII TPIit 

In this section we will study the most powerful and most flexible provi- 
sions for input and output in BASIC-PLUS. Here we will examine the use of 
the GET, PUT, FIELD, LSET and RSET commands. Also we will make use of the 
six conversions funtions (CVTF$, CVTSF, CVT%$, CVT$% , CHR$, ASCII) and the 
special system variables RECOUNT and COUNT. He will meet some new 
variations on the OPEN statement. We will add the qualifiers RECORDSIZE, 
CLUSILRSIZE, and KODE. 



6 - STRING PROCES SING - LET STATFMFmt? 

Before we can start to study record I/O it is necessary to have a more 
thorough understanding of how the system handles strings internally. When 
we talk about operations on strings we should keep in mind that when we use 
a string identifier we are referring to two parts of a string. One is the 
string header which contains the string length and a "pointer" which points 
to the other part of the string, the data or characters which make up the 
string. Thus when we execute the statement: 

100 LET A$ = "ABCDEF'" 
we produce the following sort of structure in core: 

BASIC-PLUS STfc!^ STORAGE . 



A$ 



String Header Area 
Figure 1 



String Data 
Area 
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and when we next execute the statement: 

110 LET B$ = "CHI" 
we produce the following in core: 

BASIC-PLUS STRING STORAGE 



A* 


C 




B$ 
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Strin9 Header Area String Data 

Area 



Figure \_ 



When an operation occurs which alters a string we necessarily create a new 
one and the old one becomes garbage. Thus the following program statement: 
120 LET A$ = MID(A$, 2, 4) 

causes the string header for the string A$ to point to a new string which 
has a length of 4 and the string which A$ used to point to is now garbage. 
As you see there is no string header pointing to it and thus it cannot be 
referenced. 
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As a program proceeds it generates garbage in the string data 

area. Gradually this area fills up so that there is no more room for 

strings to be created. When this happens, the Garbage Collector (KSTS-11) 

or the Core Recycler (RSTS/E) is called and the strings are all collected 

into the beginning of the string data area. 

nXwhen we execute a statement such as: 

100 LET C = D 

the operation whi^h is performed is to take the contents of the variable D 

and move it to the variable named C. This explanation applies when we are 

talking about numbers, either integer or floating point. When we deal with 

strings, however, the operation of the = operator is different since we are 

now concerned with headers as well as string data. When the following three, 

statements are executed, the string header area and string data area will 

look like figure 4: 

100 LET A$ = "ABCD" 
110 LET B$ = "UVW" 
120 LET C$ = "ASDF" 
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the corresponding string. Now consider the effect of executing the following 
statement: 

130 LET B$ = C$ 
The effect of this is to make the string header for B$ point to the SAME 
string in core as the string header for C$. Of course, the old string wi.'ch 

B$ pointed to is now garbage and will be collected next time the garbage 
collector is cabled. 

Figure 5 shows what the string area looks like after statement 130 is exe- 
cuted. 
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Any attempt to modify C$ will cause a new string to be formed with the new 
value of C$, however, the old value of C$ would not be garbage in this case 
because it is still pointed to by the B$ string header. Thus the statement 
below would cause a new string C$ to be created and the old C$ would still 
be B$ as shown in the following code and in figure 6. 
140 LET C$ = MID(A$, 2, 2) 



ff 
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Thus we can see that a change to a string effected by a LET statement will 
not cause a change to another string which was equated with -that string . 
Also any statement which is true of a LET statement is also true of an 
implied LET. 

7. STRING PROCESSING - LSET AND RSET 

There is another statement which is similar to the LET statement with strings 
except that it always operates on the data in the string data area and 
never on the string header. That is the LSET statement. The general form 
of the LSET statement is: 

100 LSET string name = string formula 
The effect of this statement is to evaluate the string expression or formula 
on the right side of the equals sign and then substitute that string for the 
string in the string data area which is pointed to by the string header for 

the string variable on the left side of the equals sign. Now consider the 

following: 

100 LET A$ = "ZXCVB" 
110 LSET A$ = "ABCDEFGH" 

After statement 100 the string area looks like figure 7. 
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and after executing statement 110 it looks like figure 8, 
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You will note that the excess characters were truncated (i.e. thrown away). 
The LSET operation can never change the length of the string nor can it novo 
the pointer in the string header. If there are insufficient characters in 
the string on the right side of the equals sign then the remaining characte 
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ire filled with. blanks. There is another statement similar to LSETjalti-ui-J ^ruy 

vwd) called RSET. It differs only in that if the string on the right . ki:» 

of the equals sign is shorter than the one on the left side then the 

characters are put in the right end of the string and the left end filled 

with blanks. Also truncation proceeds from the left. 

We said that the operation of the equivalencing of strings by having the 

- « a i.wmmwi «# fh/it<b wv/ win- jumg ju iiiy nuuiu iiuu cauic a pfuuiciu wnen Lflfc" 

string is modified with a LET statement. This is valid for the LET state- 
ment but much the reverse for the LSET (and RSET) operation. The following 
example demonstrates what happens when two strings are equivalenced and then 
one is modified with an LSET statement. First we execute the following: 

100 LET AS = "123" 
110 LET B$ = "ABCDE" 
120 LET C$ = B$ 

and the string area is as shown in figure 9. 
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we execute .the following statement: 
130 LSET C$ = A$ 
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This requests that the contents of A$ be copied into C$ and the excess 
over the length of C$ be truncated or that the part of C$ which is not 
filled by A$ be filled v/ith spaces. The string area now is as shown ir« 
figure 10. 
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As you can see the string pointed to by C$ now has the same contents as 
that pointed to by A$. However no changes have been made to any headers 
and now the contents of 8$ have also been changed . It's important to 
remember that LSET (and RSET) operate only on the string data area, never 
on string headers . 

Now, suppose that you -wanted to have two strings effectively equal but 
wanted them to be separate and distinct strings rather than simply two 
headers pointing to the same data. This is accomplished by using the LFT 
statement and concatenating the string with the null string as shown in 
trc following example: 

100 LET A$ = "QWERTY" 
110 LET B$ = A$ + "" 

The effect of the operation at line 110 is to force the creation of a :; 

ir.g in the string data area. The string area is shown in figure 11 
i. would be after executing the above two statements. 
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Figure 11 

As you can see, the data from the string A$ has been copied into another 
string which is pointed to by the B$ string header. The significance of 
this will become more apparent when we discuss moving data out of an I/O 
buffer below. 



NOTE: The string data structure as shown in the figures is 
for pedagogic purposes and not intended to completely re- 
present the actual structure used by BASIC-PLUS which is 
somewhat more complex. 
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-8. RECORD I/O - GETS AND PUTS 

Now that our side trip into string data structures is complete we can re- 
turn to the topic of random access input/output. We are about to consider 
the input/output method called "record I/O". Although this is applicable 
to all input/output devices, we shall limit our consideration to the disk. 
The disk itself is divided into units called sectors . The sector is 
the physical unit which is written or read. In the case of the PDP-11 the 
various disks have sectors of 256 words or 512 characters. This is the 
smallest amount of information which can be read or written and all at- 
tempts by the monitor to read or write the disk must specify an integral 
number of sectors. A sector is also called a b lock or a physical record . 
Even though we may need only one or a few characters from a sector, the 
nature of the equipment makes it mandatory that at least 512 characters 
be read each time from the disk. In order to accomplish this, a region 
of memory at least 512 characters long is set aside for the disk to read 
into or to write from. This region is called a channel buffer . There is 
one buffer for each channel which is currently open. 

As mentioned above, the function of the OPEN statement is to create an 
association between a file or device name and a logical unit or channel. 
Also the OPEN command determines whether or not the requested file is 
present or if specified creates it. Another function of the OPEN state- 
ment is the creation of a buffer. When a channel is OPENed the program 
expands by 512 bytes (1/4K of core) and that area is set aside for use as 
a buffer for the channel. (Remember that we are talking only about disks. 
The size of the buffer for other devices varies according to the chnrnc- 
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teristics of the device.) There ere procedures whereby the buffer can be 

made larger and they will be described later. Once a channel is opened, 

then all data transfers take place between the device and the buffer and 

then between the buffer and the appropriate places in the user dataarea. 

Now consider the following example: 

100 OPEN "FILEA" FOR INPUT AS 9% 
110 INPUT §9%> A$, B$ 
120 INPUT #9%, C$ 

After statement 100 was executed, the association of name to channel would 
be established as would the buffer for channel 9. When statement 110 was 
executed the monitor would discover that the buffer was empty so it 
would read the first sector of the file into the buffer. Then it would 
find the first two strings in the buffer and copy them into the string area 
and set up the appropriate headers. At statement 120 there would still be 
information in the buffer so the monitor would set up a string header for 
C$ and would copy the next string in the buffer into the string data area. 
If during this time, the data in the buffer was exhausted then the monitor 
would refill the buffer by reading in the next sector. Thus with serial 
I/O the buffer management is entirely transparent, to the programmer. Sim- 
ilarly, in the case of virtual arrays the data is read from a disk into the 
buffer and then accessed by the program but the user needn't concern him- 
self with buffer management functions as the monitor does this for him. 

In the case of record I/O the programmer is given control over the buffer 
and is responsible for its use. The system loads the buffer from the disk 
and writes the buffer onto the disk in response to specific instructions 
in the program. The transferring of data to and from the buffer and the 
use of data within the program is all undertaken by the user program. 
This provides for the maximum flexibility and gives the BASIC-PLUS pro- 
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grammar all the. power in controlling devices and input/output functions that 
the system programmer normally has available in other systems. 
The reading of data from the disk into the buffer is accomplished by the GET 
statement. We specify the channel number and the record (i.e. sector) in 
the file that we want read as follows: 

100 GET #3, RECORD 7 
This statement would read into the buffer the contents of the seventh sector, 
or physical reco.-d in the file. As mentioned earlier a file on a disk con- 
sists of one or more sectors. Although their actual location is a function 
of the monitor's file processor, each block has a logical or relative block 
number. Thus the first block of the file is record 1, the next is record 2, 
and so on. Using record I/O we can access any block or sector of the file 
simply by specifying the relative record number in the GET statement. Of 
course before executing a GET statement it is necessary to associate a file 
name with the channel number through the use of an OPEN statement. This is 
the feature that gives rise to the description of record I/O files as 
random-access. We can access any (physical) record of the file without 
accessing those which preceed it in order to find that record. The method 
of searching through a file in order to find a specified record is called 
serial -access. If you wanted a program which read into the buffer a user 
specified record then the following program segment would accomplish that: 

100 OPEN "FILE. DAT" FOR INPUT AS FILE \% 
110 INPUT "WHICH RECORD DO YOU WANT", J% 
120 GET #1?;, RECORD JZ 

In actual use the RECORD qualifier is optional. If we specify no record 
number the system GET's the next record which is the one next after the 
last access on that channel. Thus to read a file serially only a series of 



ft n 



CET's is necessary not specif inn. a record number. 

To write a sector from the data in the buffer we use the PUT statement. The 
general format of the PUT is just like the GET except that the direction of 
transfer this time is from the buffer to the disk. The following statement 
writes the current contents of the buffer into relative record 23 of the 
file which is open on channel twelve: 



1 r\r> lit it f flirt/ r\ r- r* r\ r> r-\ n *\nf 



In the same way :s the GET the RECORD qualifier is optional and its omission 
produces a serial write of the file. Thus to create and write a 35 block 
file (without attention to putting data into the buffer) the following pro- 
gram might be used: 

100 OPEN "FILEB.DAT" FOR OUTPUT AS FILE 11% 

110 FOR 1% = 1 to 35% !we want a thirty five block file 

120 GOSUB 200 !the subroutine at 200 puts the data 

!into the buffer. 
130 PUT #11 Z Iwrite the buffer onto the disk 

140 NEXT 1% !do it 35 times 

150 CLOSE #11% : STOP !all done, close file 

200 REM A subroutine to get data and move it into the buffer 

999 END 
At this point the reader may be inclined to observe that although he can read 
and write between a channel's buffer' and. the disk he doesn't see any way to 
access the data in the buffer. That is the function of the next statement 
which will be described, the FIELD statement. 

9. RECORD I/ O - THE FIE LD STATEMENT 

It is the function of the FIELD statement to make accessible the data in a 
channel's buffer. This is accomplished through the use of the string header 
mechanism described earlier. The FIELD statement establishes string headers 
in the string header area which point not to the string data area but to the 
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channel buffer. Thus thp ftti n C f-nf™.mn+ :,iir,i.,r .,., *«. ^^r,« j.l_ ... 

_ " ------- -^ - — • - ~.-~ -»«^"."Hi. i-iivnj uj lu utrimt: tny recoro or 

segments of it (called fields ) as string variables and then we can manipulate 

them using the string operators available in the BASIC-PLUS language. To 'set 

up this association of the string header to the channel buffer the FIELD 

statement has to have several pieces of information. It needs the channel 

i 
number of the channel (in order to know which buffer is being referred to), 

it needs the length of the string for the string header, and it needs the name 
of the string. Thus a simple case of the FIELD statement might establish 
that the first fifteen characters in each sector of the file open on channel 
4% is to be called X$ and would be written as: 

100 FIELD m, 15% AS X$ 
The FIELD statement can be used to set up more than one header in one state- 
ment. Suppose that in addition to X$ as described above, we want the variable 
names Y$ to correspond to the next seven characters in the physical record 
after the fifteen characters in X$. The following statement would accomplish 
that: 

100 FIELD #4%, 15^AS X$, 7% AS Y$ 
In general the FIELD statement can be continued as long as reasonable subject 
to the general limitation of BASIC-PLUS that no numbered line in a source 
program can be more than 255 characters long. Once the channel's buffer has 
been described in terms of string headers then the data within the buffer can 
be manipulated with the LET, LSET and RSET statements described earlier. Now 
we shall look at the mechanism by which this is accomplished. 

If the following program segment were executed then the string header and 

storage areas would be as shown in figure 12. 

100 OPEN "FILE" FOR INPUT AS FILE 42 

110 FIELD M%> 10% AS X$, 3% AS Y$, 4% AS Z$ 
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We now have. three string pointers pointing into the channel four buffer. If 

we wanted to print on the .terminal the contents of each record (block) the 

following statements would accomplish it: 

120 FOR U = M TO H% : 
GET m : 
PRINT XS, Y$, Z$ r 
NEXT 1% 

Of course a FIELD statement must not be executed before its channel is OPEN- 
ed as there would not be a buffer for the string headers to point to. Now 
let us return to our example of the list of names and addresses. First we 
will accept a list of names and addresses from the terminal and then we will 
print them on the line printer. In order to do this with record I/O we must 
first set up a "Record Definition Table" which defines the fields and their 
lengths. Table 1 is an example of such a record definition table for this 
example. 

RECORD DEFINITION TABLE 

LENGTH DESCRIPTION 



FIELD 

NUMBER 

1 
2 
3 

Table 1 



VARIABLE 
NAME 

N$ 
S$ 
C$ 
Z$ 



23 

26 

19 

5 



Name, last name first 
Street number and street 
City and State 
Zip Code 



Record Definition Table 



Now we can write the program to accept the data. 



a l J 

12 -j 

13 3 

140 



.15 



INPUT LINE Si* 
INPUT LINE Cl£ 



ise 
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OPE?: "NAMES. DfiT" FOR OUTPUT ft 5 FILE IK ! OPEN THE FILE 

IN' PUT "HOW MfiNV ITEMS"; N;; ! NUMBER OF NRMES &C 

FIELD #1!.', 232 ft 5 N$, 262 ftS S*, 192 ft 5 C£, 52 HS Z£ 

LSET N$ = NUM$(N2> : 

PUT #12, RECORD IK ! STORE THE NUMBER OF ITEMS 

FOR IV. - 12 TO N2 : 

PRINT "INPUT THE NfiNE" : INPUT LINE Ni£ 

P R I N T " I N D U T THE 5 T R LET ft N D N U rl £ E R M , 

PRINT "INPUT THE CI TV F;ND STFlTE" 

INPUT' "INPUT THE ZIP CODE"; Zl£ 
LSET H$ = Nl$ 

! c r -f c; * = c; ^ vr 
LSET C$ = CIS: 

MOVE THE D FIT ft FROM THE STRING ft RE ft INTO 

THE CHPN'NEL BUFFER. 
PUT #12, RECORD 12 + 12 

NEXT 12 ! WRITE THE BUFFER TO ThlE FILE 

CLOSE IV. :END ! RLL DONE 



Mow we have established our file of names and addresses. You will note that 
in the first record we stored the number of entries and used the other re- 
cords to store the actual data. This is not actually necessary as BASIC- 
PLUS provides a method for determining the physical end of the file but it 
is frequently a useful technique, particularly when random access files are 
being used. Several system utilities such as the SORT package expect files 
to be set up this way. Next we want to write a program which will print on 
the line printer all the names and addresses for which the zip code begins 
with a "9". The following program will accomplish that. 



/I- 23 



100 OPEN "NfiKES. DfiT" FOP INPUT fiS FILE 2£ 
OPEN "LP: " fis FILE 3:2 * 

FIELD #22, 22* RS fU, 262 RS S*, 192 fiS C£, 
.'OPEN FILES FIND SET UP THE BUFFER 
11 GET #22, RECORD IK 

LET N2 = VfiL<N$) 

!H.DW MRNV ITEMS ft RE IN THE BOP Ft P 
125 FOP IX = 12 TO NX 

GET #22, RECORD 12 + 12 



RS Z* 



ICII I Tlir r.nprrr. r- i-. .-. .... — . ■ — , . _ 

. i i i. v. i t i i_ c u r r. c. k r k u n / n t. (• JLt 



13G PRINT #22, N*;5*;C*;Z$ IF LFFUZ*, 17^ = •«*•• 
NEXT I* 

! PR I NT THE DRTR 
140 CLOSE 22, 22 ;END ! RLL DONE 



For a practical problem some editing of the input data would have been re- 
quired. Now suppose we wanted to include in the line printer listing the 
record number of each name. We might suppose that the record number might 
also be a customer number or some other identification.. Then we might change 
line 130 to be as follows: 

130 PRINT #3%, IE+1%, N$; SS; C$; Z$ IF LEFT(Z$,1%)= "9" : 
NEXT 1% 



Then we might want to write a program which printed out the name and add- 
ress of a customer on the terminal if we were given as input the customer 
number. This type of inquiry-response program would make use of the ran- 
dom access nature of record I/O files. Look at the following program 
which does provide that type of information. 



/*-*/ 



field '.iii:;, e:2?i' r-;s »r, ;/£.\: ns Sv. i5>; ns c*, 52 rs Z; 

JGP'EN FILE RND DEFINE THE DUFFER 
R D i £ 

LET Ntf = VfiL<NS> 'NUMBER OF RECORDS 

'lid INPUT "WHICH CUSTOMER", C.'i 

IF CV. > U>i THEN PRINT "NO SUCH CUSTOMER NUMBER",- CE 
GOTO 120 

!GET RECORD NUMBER AND RRNGE CHECK 
iiw GET $1Y., RECORD CJi + lJi 

PRINT N*, S*; CS; Z£ 
INPUT :, RNV MORE": R* 
GOTO .1.20 UNLESS fi* = "NO" 

CLOSE IV. : END 



In this program the file is opened and the field statement describes the 
channel buffer in terms of strings. Then the record (i.e. customer) number 
is obtained from the user and that record is obtained from the file. The 
information in the buffer is then printed out on the terminal dirertly from 
the buffer. The final few lines provide for stopping the program when the 
user is finished. Note also that there is a check for a customer number 
which is too large to be in the file. 

10 - LOGICA L AND PHYSICAL RECORDS 

At tins point we must learn the meaning of certain terms. These are logical 
record , physical re cord , blocked and u nblocked records and sp anned records. 
A record is usually thought of as an entity which is retrieved from a file 
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"' as a unit. A logical record contains all the information about something. 
A customer record might contain the customer name and address, his current 
balance, the maximum amount of credit which he is allowed, the salesman ' 
assigned to his account, and any other information which pertains tp that 
customer. An inventory item record might contain the description of the 
Item, the number of such items on hand, their price, whether a resupply of 
the items has been ordered, their cost, and such other information as would 

pertain to that item. The individual items which malr* „„ a !„„«..„, , 

are usually called fields (thus the FIELD statement) and where a field is 
made of several more fundamental items of information they are called sub- 
fields. A physical record, on the other hand is usually defined by the 
nature of the recording mechanism. In the case of a disk on the BASIC- PLUS 
system a physical record constitutes one or more blocks each consisting of ' 
256 words or 512 characters. Since we describe a buffer and thus a phy- 
sical block in terms of characters (with the FIELD statement) we generally 
think in terms of a physical record of 512 characters. A physical record 
is the smallest entity which is retrieved from a disk file. In our example 
above we simply equated a phys^al record (containing 512 characters) with 
a logical record (73 characters) and wasted the remaining characters. The 
greatest efficiency' in terms of fast "response usually results when we can 
equate physical records with logical records but in most applications it is 
not practical to waste large' amounts of storage to accomplish this. As a 
result we generally put several logical records into each physical record. 
This process is called Mockji^records.. There are two methods of blocking 
records. In the most common as many logical records as will fit are block- 
ed into 6ne physical record and the remaining characters are wasted. This 
represents a compromise between the inefficiency of wasting a lot of space 
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by not blocking' records and the amount of time needed to handle logical re- 
' cords which are spread across more than one physical record. When we do 
allow a logical record to cross (or span) the bouncfjy between two physical 
records we refer to it as a s£anned_record. This is the most efficient 
approach in terms of the conservation of disk storage space but consider- 
ably more processing is required to handle such records so that normally 
in the course of our file design we try to arrange that the logical records 
will fill or almost fill a physical record without spanning physical re- 
cords. Figure K shows examples of "unblocked", "blocked", and "blocked 
and spanned" records. Later we will cover some aspects of .file design 
and try to show how a file system might be designed to minimize the wast- 
age of storage without imposing the inefficiency of processing spanned 
records . 
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At this point you may have observed that no mechanism has been describee! 
which allows a number to be placed in a buffer using record I/O other than 
converting it into a decimal string with the NUM$ function. In terms of 
elemental operations there is, in fact, no provision for placing numeric 
items in the channel buffer. The actual hardware always works in terms ' 
of blocks of characters so tho software is designed to take advantage of 
that characteristic of the hardware. None the less one generally wants to 
store numbers .s well as strings of data in a file and functions have been 
provided for this. These functions take numbers in their internal rep- 
resentation (i.e. binary) and translate them into strings so that they 
can be placed into the buffer. Each such function has a complementary one' 
that takes a string in the buffer and places it back into the numeric data 
area of the program. In BASIC-PLUS two type of numbers are available, 
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integers' an^ mating point. (In some systems decimal data type replaces the 
floating point.) The integers occupy two bytes in core and have a range of 
+32767. They also occupy two character positions in the buffer. Floating 
point numbers are four bytes long and occupy four character positions in the 
buffer. Many systems replace the floating point option with a double pre- 
cision format which occupies eight bytes in memory and requires eight char- 
acter positions in the buffer. Thus if we have a two byte integer K% in 
memory and we want to put it into a file we define a 2 character string in 
the channel buffer using the FIELD statement and then we move the binary 
value of n into the buffer by converting K% to a string and LSETing the 
string into the channel buffer, if m wanted n t0 be plaeed in the ffrst ^ 

characters of the channel -#3 buffer we would execute the following field 
statement: 

'100 FIELD #3%, 2% AS K$ 
and then we would place the value into the buffer by converting it to the 
string K$. The function which converts from integer to string is called CVT« 
and the code to put K% into the buffer would be: 

110 LSET K$ = CVT%$(K%) 
To retrieve an integer value from a channel buffer we first would use a 
FIELD statement to describe the two character positions which held that value 
as a string and would then use the function CVT$S (convert from string to 
integer) to make the conversion as follows: 

150 LET K% = CvT$S(K$) 
This converts the string to an integer and moves the data into the area used 
to store the values of numeric variables. Remember that we use the LSET 
statement to move the characters in a string into a buffer but a LET state- 
ment to move data into a core location (except where we deal with string 
headers). 
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Wc can handle floating point numbers in the same way except that we need to 
use four or eight character, positions in the buffer and we use the function 
CVTF$ to convert from floating point to string and the function CVT$F to 
convert from a string in the buffer to a floating point number. Thus if we 
wanted to store two integers \}% and Cl% and two single precision floating 
point numbers X and Y in the channel 8 buffer we could use the following 
statement: 



200 FIELD m> 2% AS U$, 2% AS Cl$, 4X AS X$» 4* AS Y$ 
210 LSET u$ = CVT%$(U%) : . 

LSET Cl$ = CVT%$(C1%) : 

LSET X$ = CVTF$(X) : 

LSET Y$ = CVTF$(Y) 



Similarly we could retrieve the same data by converting it from string to the 
appropriate numeric form as follows:, 



200 FIELD #8%, 2% AS U$, 2% AS CIS, « AS XS, 4% AS Y$ 
210 LET U& = CVT$%(U$) 

LET C]% = CVT$%(C1$) : 

LET X = CVT$F(X$) : 

LET Y = CVTF$(Y$) 



One more data type is provided for use in files which does not exactly corres- 
pond with any data type found in the BASIC-PLUS language. That is the byte 
data type. This is a numeric type used where it is desired to store a number 
whose value is in the range of zero to 255 in one character. This is xery 
useful for type codes and similar data items where the range of values is 
limited. This type of data is transferred to and from the buffer in the same 
way as integers except that the strings are only one character Ir.ng and the 
function CHR$ is used to convert from a value to a one character strinq and 
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the function ASCII is used to convert from a one character string to a value. 
Thus to store the small integer X% in the buffer we might write: 

100 FIELD m, 1% AS XS, 

110 LSET X$ = CHR$(X%) 

Retrieving the value would be done similarly to retrieving integers except we 
would substitute the ASCII function for CVT$%. 

» 
12. MORE ON STRINGS IN BUFFERS 

Since the FIELD statement is an executable statement the description of chan- 
nel buffer can be changed .at any time. In some cases it is convenient to have 
records of several different types intermingled in a file. In this case one 
of the characters in each record is a record type code. We GET the record 
into the buffer and then examine the type code using a previous field state- 
ment. Based on the value of the type code we can then execute one of several 
FIELD statements and process the record accordingly. Suppose we had a file 
TRANS. ACT which contained transactions pertaining to a supply system. If the 
transaction code (in character position one) was a one then the transaction 
was an issue and the quantity issuedwas in character positions two and 
three. If the item had been received and was to be put into the inventory 
then the transaction code would be a two and the number received would be in 

character positions three and four. In any esse the stock number would be in 
character positions ten and eleven. Suppose the other positions were used* 

for information needed only in other programs. If the type code was three 

then that would signal that this was the last record in the file and no other 

fields would be used. The following Record Definition Table defines the 

fields of the record. 
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Number 

Type 1 Record 
1 
2 
3 
4 

Type 2 Record 
1 
2 
3 
4 
5 

Type 3 Record 
1 



Type Variable Length 
Name 



B 
I 
D 
I 



B 
D 
I 
D 
I 



T$ 

Q$ 
D$ 
S$ 



T$ 

D$ 

Q$ 
D$ 
S$ 



1 
2 
7 
2 



1 

1 
2 
6 
2 



Description 



Record type code (=1) 
Quantity issued 
Unused 
Stock number 

Record type code (=2) 
unused 

Quantity received 
Unused 
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Record type code (=3) 
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a FIELD statement to set up the string T$ as a one byte field. After line 

110 has been executed the string area is described in figure 14. 
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Then we zero out the I array which we will use to accumulate the changes 
to the inventory. At line 130 we GET one record and at line 140 transfer- 
to the appropriate routine to process that type transaction. If the first 
record contained a type one record we would transfer to line 200 and after 
the field statement was executed the string area would be as shown in 
figure 15. 
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Note that the dummy variable D$ appears twice in the FIELD statement. This 
is alright since we don't really care about D$, we just want to space over 
the unused character positions in the buffer. When a variable is referenc- 
ed more than once in a FIELD statement only the last use counts. Now at line 
220 we update the appropriate entry in the I array using the CVT$% function 
to convert the values in the file to integer values. Since this is an issue 

t.rrt rufrf ^a/<4- f Kn nn^nf i+u ■fwnm 4-t%^ u-il nn -I •■» T V -» -«U -♦- ■! »~~ ~. J.., n _ .»•..« .-~^~ — J 
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appears this process will be repeated. If the GET statement at line 130 
gets a type two record we go to line 300 to process it. We execute the 
FIELD statement at line 310 and then the string area appears as shown in 
figure 16. 
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The FIELD statement has caused the positions of the strings (except for T$ 
which was not referenced in the FIELD statement) to change. At line 320 the 
summary data in I is updated, this time adding since this is a receipt. 
When a type three record is found we transfer to 400 where we close the 
channel and print out the summary data from I. Thus we can see that the 
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string definitions made with a HELD- statement are dynamic. They are estab- 
lished when a FIELD statement is executed and remain until another FIELD 
statement changes them or when a LET statement affects them. Let's look 
at another example. Consider the following FIELD statement: 
100 FIELD m%, 2% AS A$, 6% AS B$, A% AS C$, U AS D$ 
At this point the string area is set up as shown in figure 17. Now we want 
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to put the character string "WASHR" into B$ but erroneously use the state- 
ment: 

110 LET B$ = "WASHR" 
The LET statement causes a new string to be set up in the string data area 
and not in the channel buffer. Thus we now have the situation sliown in 
figure 18. The B$ string header points into the string data area and the 
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only way to get it to point back into the channel buffer is to execute ano- 
ther FIELD statement. The statement we should have used to put the string 
"WASHR" into the channel buffer was a LSET statement. If line 110 had been 

110 LSET B$ = "WASHR" 
The string area would have been as shown in figure 19. This would have 

msic m<> SlRIi a STOSAM 




String Header Area String DM*- 

Area 



Figure r \9 



Cha.-ncl u 
Duffer""" 



I Channel 
Buffer' 



left the B$ pointer pointing into the channel buffer, 
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The capability. to have more than one string header point to the same string 
is often used where a -data item consists of sub- items. For example a six 
character field could contain the date in ddmmyy format. Sometimes we want 
to reference it as a single field and move it intact from one place to ano- 
ther. Othertimes we need to look at the specific date and operate on each 
sub-field. If the date was stored in the first six characters of the file 
open on channel 1 and it was to be moved to character positions four 
through nine of the channel buffer for file two and then the day tested to 
see if it was before the fifteenth of the month we could use the following 
program segment. 



100 FIELD m t 6% AS Dl$ : 

FIELD #1%, 2% AS T$, 2% AS M$ f 2% AS 

FIELD #2%, 3% AS D$, 6% AS D2$ 
110 GET #}% : 

LSET D2$ * 01$ 

IF VAL(T$)<15 THEN GOTO .... 



After the three field statements in line 100 were executed the string area 
would appear as shown in figure 20. Note that 01$ and T$ point to the same 
place but their length are different. Also M$ and Y$ point into the string 
which is Dl$ and are in fact substrings - (or sub-fields) of Dl$. 
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Another common difficulty is the confusion of strings in a channel buffer 
and strings in the string data area. Look at the Record Definition Table 
below. Here we have an inventory record where the data is the quantity on 
hand, the item description and the stock number. The stock number'consists 
of two parts, a two character class code and a three character item code. . 
Note the use of the Sub-item description. 

RECORD DtHNlTION TABLE 



Field 
Number 

1 

2 

2.1 

2.2 

3 



Type Variable 
Name 



Length 
Item Cumulative 



F 
S 

S , 
S 
S 



Q$ 
S$ 
C$ 
1$ 
D$ 



4 
5 
2 
3 
20 



Description 



Quantity on hand 
Stock number 
Class Code 
Item Number 
Description of item 



.Table 3. Record Definition Table 



The cumulative length column simply shows the number of character positions 
before each field. Now we want to take this record definition and process 
a file which is in order by stock number. Basically we are goint to print 
out a list of items and quantities on hand. We will also maintain two 
summary totals one for each class and one for the entire inventory. Each 
time the class changes we will print out the total quantity on hand for 
that class and then zero the summary total for the class. Such a program 
might be written as follows: 
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ilT'Diii, 4 fr-S Crt, 2 : : ;S 0$, T< RS .IS 

'K!F USE TWO riELi> STATEMENTS TO REDEFINE THE STOCK 
'.?.' i\».ion:= ' dc rur r ■ jcc u>.ir, tt~m kiiii.ic>rc..- 

'• 2 ' S 1 , S 2 = . : 

P R I N T "ST C K R E C R !> L 1 r". T T N G " > D A 7" E * < > 

•ZERO THE SUMNRRV COUNTERS RNC- PRINT HERDING 
,2Z GET ftl ; 

If Sf = " 99999" THEN GOTO 200 ! STOCK NUME.'ER 99995 

* I £< T!'E Lr'ST "REXuPD 
140 LET S = CVT£F<C!$> •£ I? THE CU^iT H'v' 

!'0 IF C* O 0$ THEM PRINT "THE TOTRL FOR CLRSS " ; 0$ " I"S " , Si' • 

SI = 6 ! PR J NT TOTHL ro* ; ,^F 

JCLrtSS RND ZERO £f.i:-'M 
16G PRINT D$, S : 

51 = SI + S : 

52 = S2 + S 'PR? NT ITEil RECORD F, 

1?G LET 0$ = C$ *0i HRf 1 WE VfiLi s £ C ; " 

! T H - *'Rl v* I 9 U f • ■ ."" i, :-» " : " "'". 
L9G GOTO 136 • 

?ee PRINT "THE TOTRL FOR CLRSS "; 0$ "IS"; Si : 
PRINT : 
PRINT "THE TOTRL FOR RLL CLRSSES IS "; S2 ! rfi 

! TOTALS 
21 8 CLOSE 1 :END 

The program is fairly straightforward. First we open the file and des- 
cribe the channel buffer in line 110. We zero the variai* as t.'iiicn v* 
will use to accumulate the necessary summary totals and then prlni a 
heading with the date. We read a record and check for V\e >nd of tne 
file. If not we convert the quantity on hand to a floating point r'm- 
ber (line 140) and then check to see if we have changed t^.e class of 
item from the previous item. If we just read an item from a new class 
then at line 150 we print out the summary total from the previous 
class and then zero the total to use it with the" next class We ;>nnt 
the item record at line 160 and update the totals. At line 170 w? try 
to save the class code of this record for use in making a conpar*Uon in 
the next cycle and then we repeat the operation, At line ?.2u w;? p-^rr; 
our last class total and the grand total and end the program. Unfortu- 
nately this program will not work as it contains a very common e^or. 
First let' sl»^ at the string storage area after the execution c^ 
si--tement 110. This is shown in figure 21. When the sf^v—cn; \-\ ^ 
170 is executed the string area has a new header, th«t to, (4?. inis is 




String Header Area String Data 

Area 



Figure ^ ?] 



Channel 2 
Buffer 



Channel 
Buffer" 



shown in figure 22. Unfortunately the operation simply set up a new 
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string header but it did not move any data (that is how a string equate 
is supposed to work). However, the comparison in line 150 will never 
succeed since C$ end 0$ will always be the same since they both point 
to the same data. When w'e change the contents of C$ by reading a new 
record into the channel buffer we also change 0$ since 0$ md C$ are 
the same string. We can avoid this by the use of either of two mech- 
anisms. If we simply replace statement 170 by the following: 
170 LET 0$ = C$ + "" 
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then the operation requested will force a new string to be created in the 
string data area. After this statement is executed the string area will 
be as shown in figure 23. Mow we have the old value 0$ stored in the 
string data area where it will not be affected by GETting the next, record 
into the channel buffer. 
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Figure 23 

Another more efficient way of accomplishing the same thing vould be to e 
ablish the string 0$ with the correct length in the string data area ?t 
some point in the program before it was first referenced. Thsn we cot' 
use a LSET to move the data from the buffer into the string data ares. 
Suppose we added a statement 105 as follows: 

105 LET 0$ = $PACE$ (2) 
Then we could replace line 170 with the following; 

170 LSET 0$ = C$ 
This would have the desired effect of moving the contents of C$ into 0$ 
(remember that LSET can never move a pointer, only string data). Since 
LSET cannot alter the length of a string it is important to establish th? 
correct length for the destination string before using LSET in this -;?y 
The problem described above, that of mistakenly moving a string poirrc- 
to point into the channel buffer instead of moving data fro;;: .r.e huffc- 
into the string data area is perhaps one of the most common problems en- 



countered in usinq record I/O. 



/f - 47 



13 BLOCKING RECORDS 

Now that we have described the use of record I/O in file processing we can 
look at some techniques used to increase efficiency. Earlier we introduc- 
ed the concept of blocking records. At this point we want to examine the 
procedures used to block and deblock records. There are four operations we 
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want tu perform: writing blocked records serially, reading blocked records 
serially, writing blocked records randomly and reading blocked records ran- 
domly. We will consider here only records which do not span physical sec- 
tors. The fundamental technique used in these cases is to process multiple 
logical records in one physical block by dynamically executing a FIELD 
statement. Then the particular record we want to operate on is pointed to 
by the string headers for the fields of the logical record. That is, if 
our logical record is 32 characters long and consists of two fields, A$ 
ivhich is 24 characters long and B$ which is 8 characters long, we would use 
a FIELD statement such as the following to look at the first logical record 
in each block: 

100 FIELD m> 24% AS A$, 8% AS B$ 
The effect of this is to describe as A$ and B$ the first 32 characters of 
the physical record. To examine the second logical record in the block we 
would use the following FIELD statement. 

100 FIELD m, 32?; AS D$, 21% AS A$, ' B% AS B$ 
Thus the first logical record is spaced over by the "dummy" field D$ and 
the second logical record is described by A$ and B$. Since each physical 
record consists of 512 characters, each will contain exactly 15 logical 
records. To find the Nth logical record in a block we could set the var- 
iable H to a value between and 15 and use the following FIELD statement, 
to set up the headers for- A$ and B$ to point to the particular logical re- 
cord we are interested in: 

100 FIELD #1, N * 32 AS D$, ?A% AS A$, 8% AS B$ 
When this is executed it will space over the previous logical records and 
set up A$ and B$ as desired. To see how this would work let's see what 
would happen if we wanted the first logical record in the block. In this 
c«-:se we would set the value of N to be 0. Thus M * 32 would also be zero 
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(since anything multiplied by zero is zero). Thus the effect would be to 
execute a HELD statement like the following: 

FIELD #}> AS D$, 24% AS AS, ?,% AS B$ 
D$ would point to the beginning of the buffer as would A$ and B$ would point 
to the 25th character in the buffer. ' To operate on the second logical re- 
cord in the buffer we would set H to be 1 and execute the FIELD statement 
described above. This time the formula N * 32 would evaluate as 32 and 
the effect of the FIELD statement would be to use D$ to space over the first 
logical record and set up A$ and B$ to point to the second logical record. 
To operate on the tenth logical record we would set N to be nine and the for- 
mula 9 * 32 would evaluate as 288. The effect of this would be to execute 
the following: 

FIELD #1, 288 AS D$, 24% AS A$, 8% AS B$ 
The first nine logical records (288 characters in all) would be spaced over 
by D$ and A$ and B$ would point to the tenth logical record. 

Now let's look at how we can make use of this by working with a practical 
example. We will have a file called "LOCATE. INV" which contains the loc- 
ation of items in a warehouse. Each logical record will consist of sixty- 
four characters as described in the following record definition table. 

RECORD DEFINITION TABLE 

Description 

Location of- item by 
floor, bin and rack 
Floor of building 
Bin number for item 
Hack number for item 
Nomenclature of item 

Table 4. Record Definition Table for Location File 



Field 

Number 


Type 


Va 

Na 


riable 

me 


Item 


Lei 


ngth 
Cumulative 


1.0 


S 




L$ 


5 









1.1 
1.2 
1.3 
2.0 


B 
I 
I 
S 




F$ 
PS 
P.$ 

N$ 


1 
2 
2 

59 







1 
3 
5 
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Thus there would be exactly eight logical records in each physical record 
and in the buffer at any time. First we must create the file and we do 
this by serially writing the file using the techniques described above. 
The following program will create the file. Note that the logical position 
of the item in the file is its part number. K'e will signal end of file by 
placing a count of the number of logical records in the first logical re- 
cord of the file. 



166 OPEN "LOCATE, INV" FOR OUTPUT fiS FILE ±Z : 

INPUT "HOW MftNV ITEMS IN THE FILE";N : 

FIELD #1J>, 5'/. RS L$ 
LSET L$ = CVTX$<N> :C2 = IX 

!0PEN FILE RND STORE NUMBER OF RECORDS IN IT 
lie UK = HZ /BY. + V/. 

!UK IS THE NUMBER OF BLOCKS IN THE FILE 
Ivk pv - ± y m ipji IS THE FIRST LOGICAL RECORD TO HRITE 

125 !THE FOR RE LOOP CONTROLS THE WRITING OF THE 

! BLOCKS INTO THE FILE 

136 FOR R'/. = IK TO UK : 

FOR JK = FK TO ?X : 

PRINT "LOCRTION DfiTfi FOR PRRT NUMBER'S CX 

INPUT "FLOOR. BIN, RHCK"; SI/:*, S2K, SKK : 

PRINT "NOW THE NOMENCLATURE OF THE ITEM" : 

INPUT LINE >:? 
12 5 !6ET THE INFORMATION FOR EFlCH ITEM (OR RECORD) 

14R FIELD #1K, JK * 64K' RS D£, IK PS Ft-.. 2K RS BC 

2K RS R$, 59K RS Ht- 

LSET F$ = CHRSCSiK) : 

LSET B$ = CV1X$(S2X) : 

LSET PS --= CVTK$(S?:K> : 

LSET US = LEFTCX*, LEN< K$)-2K) 
•L45 'MOVE THE INFORMRTION: INTO THE BUFFER 

isc ck = CK + i.*-; : 

GO 7 2 CO UNLESS CI: <= N : 
NEXT JK ' UNPDRTE RECORD COT 

:L 5v !THE FOR JM LOOP CONTROL EACH LOGICAL RECORD 

ICC PUT ttlK, RECORD RK : 
F K = OK : 
NEXT rk 
.-:..■■-; PUT ttIK : 

CLOSE IK : 

PRINT "F;LL DONE" :END !SEE TEXT FOR COM :''.:% NTS 



/9- 4f 



In this program we first set up the file in lino 100 and obtained. the total 
number of logical records to be entered. Then we put that into the file by 
LSETing it into the first record. Next wo set up some useful constants." U% 
contains the maximum number of blocks we would need for the entire file. 
(Note that since adding a block to file takes a great deal of time and add- 
ing many blocks to a file takes very little more time than adding one block 
we could make the program run more efficiently by inserting the statement 

PUT #1%, RECORD U% 
in line 110). We also set up F% to contain a one. This is used as the 
first value for the FOR loop which controls the field statement and thus the 
number of logical records in each buffer. This is done because we will put 
one fewer logical record, in block one since it contains the count of the re- 
cords as its first logical record. Every time the FOR J% loop is executed 
except the first it will start at zero since we set F% to 0% at the end of 
each block. The data is obtained for each logical record and put into the 
buffer by the FIELD statement at line 140 and the LSETs which follow. We 
update the record count and check for the last record. If we have just en- 
tered it we goto line 200 otherwise we continue to accept records until the 
buffer is full at which point we goto line 160. At line 160 we write the 
buffer to the disk and reset ¥%. At line 200 we write out the last buffer- 
load, close the file and end the program. Another point to observe is that 
in the statement just above line 150 we remove the last two characters of 
the input string since the INPUT LINE operation includes the carriage re- 
turn and line feed characters and we don't want them in the file. 

Although the method used above is entirely adequate there is another way of 
determining the record and position of the desired logical record which is 
frequently wore useful and is essential when dealing with random access to 



blocked records. This procedure uses the logical record number to obtain 
the physical block number and the position of the logical record within 
the physical record. Given the logical record number we divide it by the 
number of logical records in one physical record. The quotient is one less 
than the physical record number in which the logical record is to be found. 
We then obtain the remainder of the division. This is the number of the 
logical record within the physical record less one. In the case of the 
remainder we leave it less one since it is used in that way to multiply by 
the length of the logical record to determine the length of the dummy 
field used to space over to the logical record in the buffer. Considering 
our current example we have eight logical records in each physical record. 
If we want to access record H% we first divide U% by 8% and add one. 
LET R% = N%/8% +1% 

We now have the actual physical record number we want in Rl We obtain the 
remainder from the division by multiplying the quotient by the divisor and 
subtracting it from the dividend. The following statement accomplishes 
that: 

LET 0% = H% - (R%-1%) * 8% 
Now suppose we want to look at the location record for part number ten. 
First we divide ten by eight (Since we are using integer arithmetic there 
is no fraction when a division is performed. That is essential to the 
operation of this procedure.) Thus 10 / 8 gives us a quotient, of one. To 
this we add one to obtain a physical record number of two. This makes 
sense as the first eight logical records are in physical block one and the 
next eight are in block two. Now we obtain the remainder. First we sub- 
tract one from the block number. 2-1 gives us 1. Then multiply by 
eight. 1 * 8 gives an eight. Then subtract this from the original logical 
record number. 10 - 8 gives us a two. Now we know that we must look at 



physical record number two and multiply the length of the logical record by 
two to obtain -the length of the thirty field. Thus we would use a FIIILD 
statement as follows for this example: 

FIELD m, 2% * 64% AS D$, 1% AS V% 
Note that the calculation assumes that the first logical record number is 
number zero. If the numbering system used in the program starts at one 
then it will be necessary to subtract one from the logical record number 
before doing the calculation. This is frequently unnecessary since the 
technique of putting the number of logical records into the first (or 
zeroth if you prefer) logical record is very common. 

Now we can write a simple program to list all of the location records on 
the lineprinter. We will use the remainder technique to find each logi- 
cal record. 



;Lee OPEN " LOCATE. INV" FOP IN' PUT RS FILE IE 

GET #1>1, REC'OPl' j .'■■■'. : P0£ " 3."- 

FiLLl) Jti'i, Z'.i f:S L~ 

! j 'i - C V T f •:' •■' L v '■' : 

PEN "LP:" fi S FILE 2 *J 
US PRINT Jf2tf.. " LOCPTI ONE- FILE DM ", E> Fi T i. Z k ? 

120 FOR I'i = IVl TO U '.' : 

RK = I5i/e?i + l'< : 

J".' = ISi - <RE - i'^ * Sk' : 

i p r- ;; :;**•: p. r- '■;' y ' ; - ?.| •"; ~ "" ^2 ":' .< F-: E '!■ P [■' R /;' 
t/f* FlEL.fr t fc :1 •'.'.■ J*-:' *' F : ';. PS [*$"■ 1/- FiF F£.« 2.';.' 

, 2 .'■; Fi 5 PC v ; :' '. P F N ^ - 

!■■■ ? : ' -NT * 2 ;; , i *•: , ?. : c ; : •: r - z : .■ c: v '« -< .'■» ■•' 2- :■ :• , c v f 



1 4 ■; - r: ' !•' I ?.' ! -t 2 .":' : P P 1 



." • I :" i 
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This program is very straightforward. First the files are opened and then 
the number of records is obtained. The output device is opened and a head- 
er printed on it. Then in the main loop starting at line 120 the record 
number is calculated and the appropriate block read into the buffer if 
necessary. The FIELD statement sets up the string headers and the data is 
printed on the printer. At line 140 the files are closed and the program 
ends. 

The only other important point to note is that the variable R0% is used to 
indicate which block is currently in the buffer so that no more reads from 
the disk are performed than necessary. - 

In the example programs in this section you will notice that very few line 
numbers are used. This is a special feature of BASIC-PLUS and enables us 
to make our programs more efficient. Also combining the use of only the 
essential line numbers with indenting the program helps make it more read- 
able and the logic of the program more apparent. 

To randomly read a blocked record from a file is similar to the last ex- 
ample. The desired record number is obtained and then the remainder method 
is used to determine the block and record within the block to read. The 
block is read with a GET statement and then a FIELD statement is executed 
which sets a dummy string across the records preceeding the desired re- 
cord and sets up the string headers to point to the appropriate fields in 
the buffer. The following simple example requests a part number and then 
prints on the terminal the item nomenclature. The record is the same as 
used in the last example. 
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100 CPE.N " LOCRTE INV" FOR INPUT Fib FILE ?K 

GET #2;:, RECORD '.:■; : POK - 12 

FIELD 4t 2 * : , 5^ RS I. * : 

Ll :■'. = C V "f :? .'i ( L $ :> 

110 INPUT "PRRT NUMBER"; l>i : 

IF i;-; "> I IX THEN PRINT " PRRT NUMBER TDD LARGE" 

GOTO 110 ! CHECK RANGE OF PRRT NUMBER 

.t;: = i:-; - <r:< - iz> > : £;: : 

GET t*2Y.. RECORD R2 UNLESS RE = RCX : 

Re;-; = i<„ : 

FIELD #2Jv, J£ * 64'- RS D*, 5E RS D£, 59/i RS N* 
130 PRINT "PRRT NUNBER"; IX; "IS fl "; MS : 
INPLT "FINISHED"; ft* 
GOTO 110 UNLESS fi£ = " VES" : 
CLOSE 2J-: : END 



The program is very much like th2 previous example. Here the files are 
opened and the number of records is obtained. Then a part number is 
obtained from the terminal and is checked against the maximum record num- 
ber. If it is in range then it is divided by the number of logical rec- 
ords in a physical block obtaining the block number as the quotient +1 
and the logical record within the block as the remainder of the division. 
The record is read into the buffer if necessary and a FIELD statement is 
executed which sets up the desired logical record. Note that the variable 
D$ is used twice in the same FIELD statement. The first time it is used 
to select the desired logical record and the second time to space past the 
characters which we do not need for this particular program. 
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Randomly writing blocked records is very much like reading them. In iV.cl: 
it is necessary to read the record before it is written. This is done 
because other records which are in the same block may already have been 
written. Since we always read and write physical records from or to the 
buffer if we simply stored our information in the buffer and then did a 
PUT, anything which was a part of another logical record within the same 
block as the record we are writing would be destroyed. As an example 
of a program which writes a random blocked record we will take our pre- 
vious example and change it so that the operator was to replace the no- 
menclature of the part after it had been printed out. To do this we 

would insert the following statements between the third and forth lines 

* 

from the end of the program. 

INPUT "NEW NOMENCLATURE": A$ : 
LSET N$ = A$ UNLESS LEN(A$) = 0% : 
PUT §2%, RECORD R% : 

This would change the specific items nomenclature without altering any 
other information in the. file. Observe that if no information is entered 
then the old nomenclature is not changed. 

To summarize, to randomly red6 or write blocked records it is necessary 
to take the logical record number and divide it by the number of logical 
records contained in one physical block. The quotient of this division 
plus one is the physical block number which contains the logical record 
desired. The remainder of the division is the number of logical records 
within the block which proceed the desired logical record within the 
block. When it is multiplied by the length of the logical record it is 
the number of characters within the block which proceed the logical re- 
cord. When that product is used as the length of a dummy string vari- 
able in a FIELD statement then the next character described by the field 
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statement is the first character of the 'Jesircd logical record. 
In all of our examples so far it has turned out to be very convenient that 
the length of a logical record is a sub multiple of the length of a block 
(512 characters). It may appear that this is a little unrealistic. In 
practical situations the logical record length is determined by the needs 
of the application. In most applications as many logical records as v/ill 
fit are put in one physical block and the leftover characters in the block 
are simply wasted. In many cases the number of characters wasted is very 
small compared to the size of the file and this wastage is not a burden to 
the system. If it appears to be unreasonable for a particular application 
then spanned records can be used. In that case there will be no wastage 
but the program will be somewhat larger and will execute a little more 
slowly. Also certain useful functions will not be applicable to such a 
file. A detailed explanation of the use of spanned records must be de- 
ferred until the RECORDSIZE option is described infra. When the records 
do not span blocks then the method described above is applicable whether 
or not the records exactly fill the block. We simply divide by the number 
of logical records which are contained within one physical block. 

14. MORE ON OPEN - RECORDSIZE AND 'CLJjgTFRgT7£ 

At this point we can take up several new options which are associated with 
the OPEN statement. First is the CLUSTERSIZE option. This is used to 
make access to large files more efficient. A complete discussion of the 
CLUSTERSIZE option is beyond the scope of these notes, however, a few com- 
ments are in order. The information which RSTS keeps on the disk is div- 
ided into three parts: the file name, where the file is, and the data 
within the file. In a simple case the information about where the file is 
stored is simply a list of the sector numbers of the sectors which make up 



the file. 'Now we are not talking of the relative block numbers within a 
file which we used earlier but of the actual hardware addresses of the 
blocks. Each file consists of one or more blocks and the blocks are allo- 
cated from the supply of unused blocks maintained by the system. As a re- 
sult the blocks are randomly arranged and while they seem sequential to 
the program this is accomplished by the monitor's use of the list of the 
blocks. In any case when a file is opened seven elements of this list are 
placed in core in something called a "file window" . When any of the seven 
blocks described by the file window are requested RSTS simply looks up the 
actual physical address of that block in the window and then accesses the 
block. If a block which is not part of the window is requested then it is 
necessary to replace the- contents of the file window. This is called a 
"window turn". -A window turn implies reading the location information 
from the disk which means that before we can do our data transfer we have 
to wait for the disk to transfer the information about where the block is. 
To reduce the overhead inherent in this reading of the directory when we 
want to read data we have defined a structure called a "cluster". A clus- 
ter is always a power of two (1,2,4,8,16,32,64,128, or 256). Wnen we de- 
fine a file to have a clustersize of, say, 8, that means that the file is 
made up of clusters of eight blocks each. Now the' list of locations that 
the monitor maintains is a list of clusters and the file window describes 
seven clusters rather than seven sectors. This is of course possible 
since it's only necessary to know where the first sector of each cluster 
is since the others will be immediately adjacent. The general rule to rem- 
ember is that the clustersize of a file should be such that seven times the 
clustersize is larger than the file and seven times the next smaller 

clustersize is smaller than the file. When this is not possible because 



the file size is so great that it exceeds 1792 blocks then the clustcrsize 

should be 256. The clustersize of a file is established when the file is 

created and is used when an existing file is accessed. To create a file 

named "FILE. DAT" with a clustcrsize of sixteen we would use the following 

statement: * 

100 OPEN "FILE. DAT" FOR OUTPUT AS FILE 4%, CLUSTERSIZE 1G% 

The best clustersize can be calculated in a program if the size of the file 

to be created is known. Suppose we had a case where each logial record 

was to be 64 characters long. Thus exactly eight would fit into a block. 

The following program segment would find out how large the file was to be, 

open the file with the optimum clustersize, and then extend the file to 

its length. 

100 INPUT "HOW MANY RECORDS IN THE FILE"; 1% : 1% = l%/8% + U : 
J% = -1% 

0% = J% + 1% UNTIL 7% * (22 1 J*)> = 1% or' J* = 8%: 

OPEN "FILE. DAT" FOR OUTPUT AS FILE 11%, CLUSTERSIZE 2%?J% : 

PUT #11%, RECORD 1% 

There is also a "device clustersize." This is the minimum clustersize 
which any file may have on a given disk. It is set by the system manager 
and is designed to reduce the extent to which disk .accessing slows the 
system down. In the case of very large disks a device clustersize is nec- 
essary simply to make it possible to address such large devices as the RF11 
and RJP11 disks. 

The RECORDSIZE option, on the other hand, lets us extend the length of the 
channel buffer and to read more information into it in one request. In our 
previous discussion we have always assumed that the size of a sector was 
512 characters and the size of the buffer was the same as the sector. This 
is not entirely true. The size of the sector is indeed fixed by the hard- 
ware but the size of the buffer can be any integral multiple of the size of 
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or 2048, etc. Of course if you make the channel buffer bigger than 512 
characters then either the program will grow or you will run out of room. 
When the buffers ize has been made larger than the minimum (512 characters) 
then a GET will cause the entire buffer to be filled by reading as many 
blocks as necessary. The FIELD statement works as it did before, however, 
the entire channel buffer can be mapped by the FIELD statement. When a PUT 
statement is executed the entire buffer is written into as many { logically 
consecutive) blocks as necessary. A point to be cautious about, however, 
is that the record specification in the GET and PUT statement still speci- 
fies which block is to be the first one read. Thus if we opened a file or, 
channel 1% with a records ize of 1024 characters as follows: 

100 OPEN "FILE" FOR INPUT AS FILE 1%> RECORDSIZE 1024% 
and then we proposed to read each block in the following manner: 

110 FOR 1% = 1% TO N% : 
GET m> RECORD 1% : 
FIELD m, 

NEXT 1% 
The effect would be that the first GET would read block number one into the 
first 512 characters of the buffer and then would read block number two in- 
to the next 512 characters of the buffer. The next time through the GET 
statement would start at block number two and would read blocks two and 
three into the buffer. This is not what was wanted since block two (and 
every other block except the first) would be read (and processed ) twice. 
Once in the second half of the buffer and once in the first half. To make 
the program segment above work as desired it is only necessary to change 
the FOR statement to read: 

110 FOR 1% '--- }% TO \\% STEP 2% : 



Now when the program is run it will GF.T blocks one and two the first time, 
then blocks three and four, and so on. 

Now we can consider spanned records. To briefly review our discussion of 
logical record types, a spanned record is one which may be stored. in two 
adjacent physical blocks. This being the case it is necessary to read and 
write more than one block in order to access a spanned record. There are 
two techniques which can be used to achieve this. The simplest is des- 
cribed here. This is to simply open the file with a large enough buffer- 
size to contain the desired logical record. The recordsize to use in this 
case is calculated as follows: When 1% is the length of the logical record 
in characters, the recordsize is, 

512% * ((l%/5]2%) + 2%) 
For most common cases we get the following: 



Size of logical record 
less than 512 
exactly 512 
513 through 1023 
exactly 1024 



1025 through 1535 
exactly 1535 
1537 through 2047 
exactly 2048 



Buffers ize 
1024 

records don't span blocks 
1536 

records only span from odd 
to even blocks. Use a buffer 
size of 1024 
2048 

size of 1536 
2560 
size of 2048 



For the simple cases above (logical record is 1024, 1536, or 2048 characters 
long) all that is necessary is to multiply the desired record number minus "« 
by the number of blocks in each record dnd then to add one to the product. 
Thus if the logical recordsize Is 1536 (three blocks of 512 characters) and 
we want to access record H% we would use the following statement: 

100 GET M%> RECORD 3%*(N£ - IE) + IS 
and then process the record in the normal way remembering that the FIELD 
statement must map 1535 characters in the buffer if we access all of the 
data. 



t f-s-L 



When the size of 'the loqical record is not a convenient, integral multiple 
of 512' then we must use a more complex calculation to determine the block 
where the record starts and the number of characters in the buffer which 
preceed the record. We use these two numbers in the same way we used 
them when we used the remainder method with unspanned records. In this 
case the calculation is as follows: 

a. Multiply the record number of the desired logical 
record by the length of the logical record. 
• b. Divide that product by 512%. That is physical 

sect r number -1 one of the blocks which contain 
the logical record. Use it plus one in a GET 
statement. 

c. Multiply the quotient obtained in step b. above 
by 512% and subtract it from the product obtained 
in step a. That difference is the number of 
characters, in the buffer preceeding the desired 
record. 

(NOTE: This valid for files with < =2000 blocks unless 
double precision arithmetic is used.) 

In the following example, the length of each logical record (L%) is forty 

characters. We want to retrieve the N% logical record. 

100 OPEN "FILE" FOR INPUT AS FILE 1%, REC0RDSIZE 1024% 
1% = 40% 



1000 REM This subroutine reads the l\% logical record from the 
file. N% is set to the logical record number to read 
and 1% contains the length of the logical record, 
1010 Rl = L% * U% : 

R% = Rl/512% : 
C% = Rl -■ 512% *R% : 
GET !?}%> RECORD R% : 

FIELD #1;=> C% AS 0$, : 

RETURN 

Our subroutine is called to read a logical record and it returns with the 
read executed and the buffer set up by the FIELD statement. As with block- 
ed records generally it is necessary to read a logical record before at- 
tempting to write it to avoid modifying information in the other logical 
records in the same block. 
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The other method of dealing with spanned records involves reading each 
block in which the desired record is located and copying it into .the 
string data area. Writing is the opposite procedure. The routines to 
do this are complex and beyond the scope of these notes. 



15. FINDING DAfA WITHIN A FILE 

At this point we have learned how to open and close files and how to read 
and write data into them both serially and randomly. When making random 
access to a file we have always specified the record number of the logical 
record in the file that we wanted to access. In some examples we simply 
said that the record number would be the stock number or customer number. 
In practice this is rarely satisfactory as such individual identifications 
frequently carry more information and also may have letters as well as 
numbers in them. Even if such problems dirt not exist there is the problem 
of re-using numbers when one item is discountinued and another assigned the 
same number. In most cases it is necessary to establishe a mechanism for 
retrieving a record from a. file based on the information within the re- 
cord. Lot's look at an example. We will take our example of the inventory 
locations file and we will include in the file an item stock number of 
eight characters (either numbers or letters). The record definition table 
for this file is now as follows: 
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RECORD DEFINITION TABLE 

Field Type Variable Length Description 
N u mb c r N a me Item C u m u 1 a t i ve 

1. S L$ 5 Location of" item 

by floor, bin, or rack 

1.1 B F$ 1 Floor of building 

1.2 I B$ 2 1 Bin number for item 

1.3 I R$ 2 3 Rack number for item 

2. S S$ 8 5 Stock Number 

3. S N$ 51 13 Nomenclature of item 

Table 5. Reci~d Definition Table for Location by Stock Number File 
Our task is to write a program which will look up the location of an item 
given the stocknumber of the item. This might be part of a larger program 
which takes orders to be filled and places the items in the sequence on a 
packing list that will result in the shortest trip through the warehouse. 
At any rate our current job is to find the record for an item if we know 
its stock number. The simplest solution would be to simply search through 
the entire file checking each record until the desired record was found. 
This is relatively inefficient. Since each logical record is sixty-four 
characters long, each block will contain eight logical records. If there 
are 10,000 item records then the file will consist of 1240 blocks and each 
time we search the file approximately 625 separate disk reads will have to 
be made. This could take a substantial amount of time. Although this may 
not be very efficient it is probably still worthwhile to code it as an 
exercise. The following program will accept the stocknumber from the 
terminal and print the location of that item on the terminal. 
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100 CPI?:,' "LOCRTE. INV" FOR INPUT PS FILE' Itf 
GE7 tfi/.', RECORD i.';' 
FIELD JM';, 52 RS L* : 
u:.' = CVT*v<L£> : 

.I.'!>"; I(\ : Hi7 "-STOCK NUMBER"; XI" : GOTO 15 F! IF . v l-' - "D:"i?;i 
IF LEN<X$) <> &:•: THEM 

f RINT "NOT H VRLIF STOCK' KVP.BEF", }'.£ 
GOTO lie 

120 for i;-i = 1;; to i\:< 
rv. = i;;/ea + ix 

P1X = IJi - 8K * (RX - i£> : 

GET |ti?>, RECORD RE UNLESS F:£ -■ RF1.*; 

ROE = Rv : 

FIELD #12, 642 * R1X RS t$, IX PS 7$,- £v fl c f.$. ?y rc; R* 

8* RS SJ, 51.2 RS N$ 
130 IF SI = K* THEN 

PRINT "FOR STOCK NUflDER \« 5*. ' THE. LOCPin^ IS 

"FLOOR"; M S C I I ( F £ > .; " S I M " J C '•■=' T t- ."-:' < c " :*■ .- ; " R F ; " f " " ; '"' '"' T 

PRINT "THE I"; EM IS: - . NS 

GOTO 100 
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fkjw we can assume that on the average we will need to go half way through 
the file before we find the item that we want so we will need to read the 
file (11/16) times where N is the number of logical records in the file. 
If there are 10,000 logical records and we assume that each disk access 
takes around 200 milleseconds (one fifth of a second) then each response 
would take about two minutes. Mot very good response from a computer. 
Note that the actual amount of time that it takes to access a record on 
a disk on a timeshared system depends in a large measure on how many other 
users are tryinq lo use the disks. As a first step toward efficiency 
let's try to reduce the number of disk reads by setting up a separate file 
containing just the stock numbers. The term ke^ is used to refer to the 
field (or fields) within. a logical record which identify the record. In 
this case the stock number is the key and the file which contains the keys 
is the key file . In this case we will simply set up another file called 
LOCATE. KEY which will contain the keys in the same sequence as the records 
are in the main file. All we do is to sequentially read the main file 
(LOCATE. INV) and transfer each key to another file which we write sequen- 
tially. In each case the first logical record contains the number of 
logical records in the file. 
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1ZZ ' ; '^< CREATE KEV m'LE 

C R E A T E 5 ft N U NS P T E D LEV FILE F D R t- 1 
"LOCATE, INV" MS "LOCATE. KEV" 



110 



126 



136 



OPEN "LOCRTE. INV" FOR INPUT AS FILE IK ■ 
GET #.1:-;, RECORD 1';' ■ 
FIELD #1E, 5v RS LS : 

Li/: = cvt^cl*) : 

ROV. = iv 

! INPUT FILE INITIALIZATION 
! UK IS NUMBER OF RECORDS IN THE FILE 
: KB/i IS The. BLOCK CURRENT Li" IP-' TH r IWpMT r.>\i?f£& 
OPEN "LOCATE. KEV" FOR OUTPUT RS FILE 22. CL U C TP RS s " ?E ^'V • " 

FIELD i)2Y., SK RS V$ : 

LSET V$=CVT*$(U2) : 

50;; - iv 

! OUTPUT FILE INITIALIZATION 
! PUT RECORD COUNT INTO FIRST RECORD 
! 5%K IS THE BLOCK CURRENTLV IN THE OUTPUT BUFFER 
FOR IK = IK TQ Liv 

P>: = IK/SK : 

Rl£ = IK - Rv * SK: 

SK =.IX/64K : 

Si^ = IK - S/.' * 64?: : 
rx = Rv. + IK 

SK = S/i + iv ! 

CALCULATE CLOCK NUMBERS AND OFFSETS 
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R I S I N r 



R*'D S IS 1 
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GET iflL REUORD RE .inlESS h ?£ - R0> 

Re:* -■ r v . 

FIELD #!?£, C4JJ * Ri'.' RS DS, 5E ftc; r,-, c ; ; 

RETRIEVE ONE KEV FROM INPUT FILE AS Si 

RK IS the Cluck: number and k'i}: is the Block offse 

PUT #2K, RECORD SO.'i UNLESS SOY, - SK 

so;* ~ s;* : 

FIELD -A ■:■)■:, ijK * Si.'; PS D*. yv RS V*- 
L S E T V $ = S S ' 

M V E N E i: F V 1 N T O'U T" F' U T FILE 

SK IS BLOCK NUMBER AND SI/- IS THE E.'LOCK OFFSET 

WRITE THE BUFFER IF" NECESSR"- y 
NEXT IK : 

PUT &i\. RECORD SO;.: ; 
CLOSE IK, 2K 
F N D ! 

WRITE OUT LAST (PPRTIhL) EUFFEr HMD CLOSE' FI' C 'S 
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the main file then there are 10,000 keys in the key file. Since each key 
is eight characters long, 64 of them will fit into one disk block. Thus 
the key file will be 157 blocks and on the average we will need to go through 
one-half of it to find a given key. Thus we will need to'- read only 79 
blocks which at 200 milleseconds per read is 15.8 seconds. We still need 
to read one block out of the main file so the total time to retrieve the 
record is just sixteen seconds which is much better than two minutes. The 
program is not complex. It uses the remainder method to access both files*. 
First the initialization for the input file obtains the number of records 
in the input file. Then we create the output file and put the number of 
records in its first logical record. Then in the main loop (lines 130, 
140, 150) we read one logical record from channel one (the main file), 
extract the key, and write it into the key file. When all the keys have been 
extracted from the main file and transferred to the key file we write out 
the last buffer in the key file at line 160, close both channels and stop. 

How that we have created the key file we can use it to access a record in 
the main file. We will use the same problem as before. We open both files 
and then obtain the stock number (key) to be searched for from the terminal. 
Next we search through the key file for the key record which matches the 
stock number. When we find it we then retrieve the corresponding data 
record from the data file. We verify that the key in the data record is' 
the one we are looking for. If it isn't that usually means that someone 
has altered or modified the data file since the last time the key file was 
created. In this case it is necessary to recreate the key file. If the 
key's do match then the required information is printed on the terminal 
and more input is obtained. The program stops when an error occurs or when 
the operator types either "DOKli" or "STOP". Mow here is the program which 
will retrieve data records after searching the key file. 
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IV f- r^r^.r'^ R ".cnriOf! 1" ™f INVriFIOAV LufATir-'K, 
FI..I. L.V SlARlHING THE |:[V F* I !. E FOR TR ; H-'V A"D riTM " " 
ACCESSING THE- Ah IN FllF " ' 

101! 

110 OPEN "LOCATE. INV« FOR INPUT AS FILE IX 

OPEN "LOCfiTE. FEY" FOP INPUT AS FILf £■•■• 
FIELD ^ 1 ;r , 5X AS L* 

FIELD «2X, ex fis v* • 

GET «1X, RECORD IX • ROX s j y 

GET tt2X, RECORD j.x : c 0>: _ £ K J 
OPEN ROTH FILES 

120 LET ux a cvrrxat) 

IF UK <> CVUX'.Vf) THEN 

PKINT "LENGTHS OF FILES DON'T MATCH" • 
CLOSE IX, 2X : STOP ! 

UX IS THE NUMBER' OF RECORD*. IN THE FIIE 

i 3 e in-put >s™cr™n™l C ;°»** C ] KE BL0CK cueke «tlv ihWh duffer 

GOTO 160 IF X4-- = "DONE" OP X* = -«-.TOP B • 
IF LEN(X*> <> ex THEN 

PRINT "NOT fl VALID STOCK NUMBER-; X* : 

140 FOR IX = IX " "• £Hl ' ° FRUM °* VftLlt ST0C,C WUMBER 

sx = ix/64x 

S1X= JX - SX*64X: 

SX = sx + iK 

GET K2X, RECORD SX UNLESS f.X = SOX 

sex = sx - . . 

FIELD #22, OK * SIX ftS Di, OX AS v* 
GOTO 150 IF X$ = V* 
NEXT IX 

PRINT "ITEM NOT FOUND IN FILE"; v-j 
GOTO 130 
1411 H ft I N I P . C ft L C U L A T E L C K C s ;; > f , f j [;. 

OFFSET (SIX) EOF. FES' FILE. READ RECORD ANT- CH^C" 
FOR PEOUESTED KEY. IF NOT FOUNF RRTfn ki'kf^ "r'^c^r 
AND TPV AGAIN * "' 

150 RX = IX / 8X 

R1X = IX - RX * ex 
RX = RX + IX 

GET ttlX, RECORD PX UNLESS RX = POX 
ROX = RX : " ■ 

FIELD FIX, CAY. *■■ Piv rs Di - IX AS Ft-, RX AS Rt, 
2X AS kt; ox as s:, ^iX A r . ' N+- 

151 ! " ' 

RETRIEVE DATA RECORD FRO ft FILE RX IS 
BLOCK AND FIX OFFSET. Ft- IS FLOOR, hi: jc. RIN. 
„.,,,. R* IS PACF AND N* IS DESCRIPTION ^ I cf 7 ," !F r r v 

160 IE Y* <> Sf THEN 1 " 

PRINT 'FILES APE 1 NCONS I c. T f f.n •• 
PRINT IX, XS',S*,Vv : 

PRINT "FES' FILE NASI Of RECONSTRUCTED " " 
CLOSE IX, 2X : STAR • 
.161 ! 

IF THE LEV IN THE DATA PILE Dfir <; >>£it ?ff ( r,- s . T yr , •-.. 
IN THE ITS' FILE THEN ll.Ti'F 3s A SERI OUS ' r^-fi' 1 " PRINT 
DIAGNOSTIC; I NrOPHAT? mR r;f.;r, c ll£ , f . 
170 PRINT "FOP STUFF NUNLCD", Sf; "Tilt L OCAT I .',/,' 1 C"; 
"FLOOR"; fist: 11(1 j , ; '" 

-B1K"; C VTSX([:f > ; 
"RACE"; CVTJX<Ri> 
PRINT "NOMFNCI hTEPE 51 , fit ; 
GOTO 130 ! 

FOUND LATCH SO ^■-•IIIT 1 r^rr-firr » r-n 
10D CLOSE IX. 2X : END ' '"" 
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still will need fifteen seconds or more to locate the desired information 
and this is much longer than the operator should have to wait. We need a 
more efficient method of searching the key file. We can reduce the time 
it takes to search the key file by first putting in the file not only the 
key itself but also the logical record number which it represents. Then 
we could sort the key file so that the keys were in alphabetical order. 
Then with the file sorted we could use a binary search to find the re- 
quested key and along with the key would be the logical record number of 
the corresponding record, (if you don't know what a binary search is it 
will be defined below), With a binary search the number of disk reads re- 
quired will be somewhat less than the power to which two must be raised to 
equal or exceed the number of logical records in the file. (In other words, 
the logarithm to the base two of the number of records in the file). Thus 
for a file having 10,000 records the number of disk accesses required would 
be Log 2 (10,000) or 14. This can be reduced by the log 2 of the number of 
keys stored within one block. Now our keys are somawhat longer than be- 
fore. Previously we had a key of eight characters. Now we have the same 
eight characters plus two more used to store the logical record number (in 
CVTE$ format).' Since each key is now ten characters long we can put 51 
such keys in one block and the log^ (51) is 5. Thus we would need to read 
the disk only nine times which would require only about "two seconds to 
access the file. There are other still faster methods but first we should 
understand how this one works. 

The obvious first question is how is the key file to be placed in order. 
There are many methods of sorting data and entire books have been written 
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about the relative advantages of each. Writing an efficient sorting pro- 
gram requires extensive knowledge and much effort. For the RSTS uv.cr, 
however, this is not necessary as an efficient file sorting package is ' 
supplied by Digital Equipment Corporation. A manual is provided which ex- 
plains how the sort package is used. It both extracts the keys from the 
data file and sorts the keys into alphabetic sequence. As an option it 
will sort the data file itself but this is hardly ever necessary. The 
user should read the Sort manual before attempting to use the techniques 
described below. For our purposes it is sufficient to say that the sort 
package will create the sorted keyfile which we need to use with a binary 
search. (Note: If you don't have access to the sort package then use 
the randomizing or hashing technique described below.) 
To make a binary searc h (also called the ha If --interval method ). We simply 
take a sequence of values which is in order and search for one of then, by 
seeing if it is in the first or second half of the values. If it is in 
the first half then we look to see if it is in the first c second half of 
that half and so on until we have found the value wo are looking for. Al- 
though we are mostly concerned with record I/O files, we will take as our 
first example a binary search of a virtual array, he will use the sorted 
file of names which we created in the program on page ,•■ Here we have a 
file of 20Q names each 64 long which we irwe picked n alphabetical order. 
Now we will search for a particular name, first we open the file and de- 
clare it to be a virtual array. 

100 OPF.N "NAMES" TOR INPUT AS TUi ?','. : 
DIM £2£, H$(200H4;.' 

Next we obtain the name to search for in the variable A$. 

110 INPUT "WHICH NAME"; A$ 
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Now we set up the binary search In this case 1.7 is the lower limit oi" 

the search and \}% is the upper liiirit of the search. C7 is calculated from 

1% and U% and is the center of the interval between L7 and U%. Initially 

1% is 0% and U% is 200% thus making C% be 100/'. 

110 1% = 0% : 
U35 = 20055 
120 CS = (L% + U%)/2% 

Now we can test whether we have found A$ in the array. If we have, we 

transfer to line 200 with C% = the index where we found it. 

130 IF N$(L%) = A$ THEN C% = 1% : GOTO 200 
140 IF N$(U%) = A$ THEN C% = U5S : GOTO 200 
150 IF N$(C%) = A$ THEN GOTO 200 

Now that we know that we have not exactly found A$ we want to know whether 

it is above or below M$(C%) in the sorted array. When we determine this 

we change either 1% or U% so that we now have a new interval which is just 

half as large as the previous one. 

160 IF A$<N$(C%) THEN U% = C% ELSE 1% - C% 

Now if U% and 1% are the same or differ by one then we know that A$ is not 

to be found in the virtual array N$. otherwise we check the new interval. the 

same as we did with the previous one. 

170 GOTO 120 UNLESS U%-L%<= 12 : 

PRINT "COULD NOT FIND NAME"; A$ : 
GOTO 110 

When we find the name we could print it out or do whatever we now need to 

do. 

200 PRINT "FOUND IT"; A$; "IS NAME NUMBER"; Z%\ "IN THE FILE": 
CLOSE 2% : END 

Although it is useful for an example, the overhead associated with virtual 

arrays is so great that this is not a feasible way of writing a production 

program. In a real situation record I/O should be used when the binary 

search is being mode. What follows is a simple program to make a binary 
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search, of a sorted key file from our previous example; the Inventory Location 



File. 
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The method' described above is reasonably effective; however, there is still 
substantial wasted effort. In our example we found it necessary to make 
nine disk accesses in order to find one data record. This is, in general, 
not efficient enough for many applications although there are situations in 
which it is fully adequate. The next increase in efficiency comes from 
trading off core space (and thus program size) for reduced time in locat- 
ing a record. We reduce the number of necessary disk accesses to one to 
the sorted key file and one to the data file by maintaining some information 
in core which permits us to. obtain the block of the sorted key file which 
contains the key we are seraching for. In our example we had 10,000 data 
records, each 64 characters long. Thus we also had 10,000 keys each of 
which was 10 characters -long (eight for the actual key and two for the log- 
ical record number). . Since each block is 512 characters long, each will 
hold exactly 51 keys. The sorted key file is therefore 196 blocks long. 
We could now set up an array in core which would contain the first key in 
each block f the sorted key file. Then our technique to find a specified 
record would be to first perform a binary search on the in-core d.rrdy. The 
outcome of this would be the block number of the block of the sorted key 
file which contained the key of the record we are looking for. We 
would read that block and perform a binary search on its contents to deter- 
mine the actual record number of the desired logical record. Then we 
would fetch the- block from the data file which contained that record. Thus 
we obtain the record we desire, out of a total of 10,000 records, with two 
disk accesses, one to the sorted key file, and one to the data file. 
If enough core to place the array of keys in core is not available, then it 
is possible to make that information part of the sorted key file and search 
the buffer twice. This increases the number of disk accesses by one but 



eliminates the need for the array in core. 

In our example we had 10,000 keys in 196 blocks of 512 characters. If we use 
a recordsize of 1024 characters we would read two blocks of the sorted key 
file at a time. Thus we would nce6 on our preliminary search only 98 keys 
of 8 characters each. These could be put into two blocks appended to the 
sorted key file and then searched in the buffer by the same routine which 
made the binary search on the key file. Using this technique we could 
expect to use only six-tenths of a second in retrieving a specific record. 
There are mary variations on this technique which are beyond the scope of 
these notes. 

16. HASHED KEYS 

Another technique which is often used to access data is that of hashed or 
L andomzed_ Jejrs. This method is based on the maintenance of a key file in 
a random sequence which is directly accessed based on the value of the key. 
The proceeding cryptic remark is best explained by a very simple example. 
Let us suppose that we have a key consisting of two alphabetic characters.- 
Initially our key file is empty. As entries are made in the data file the 
keys are posted to the key file. The location in the key file into which 
the keys an, placed is determined by adding the ASCII values of the two 
characters of the key and dividing by the nunber of possible entries in the 
key file. We use the remainder of this division as the position in the key 
file for that key. For our example we will use a key file having just 
eleven possible entries. First ^ will zero the key file and (.hen consider 
each entry in the data file. Suppose the first key w t ;s »!*■•. The ASCII 
value of »E» is 69 and that of «G" H 7:, lhr ; r sum is UG dm| thc ^ 
•nainder of 140/11 is 8, Thus in logi^ r ,, cl(< 3 ef th „ lc) fUe we WQuld 
put the key "EG" andtl,. - r :,) , L _ ; : .-.....■ , ; r rr.<- -,-, ^H in . c :,, fl 
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record i.e.: . 1. Suppose the next key was "FA". The ASCII value "F" is 

70 and that of "A" is 65. Their sum is 135 and the remainder of 135/11 is 

3. Thus we would post to position 3 of the key file the key "FA" and the 

logical record number of the second record. The third logical record of 

the data file we find has a key of "BF". The ASCII values of "D" and "F" 

are 66 and 70 and their sum is 136. The remainder of 136/11 is 4 so we 

post the key "BF" and the logical record number 3 to the key file. The key 

file now looks like this: 

Entry Key Data 

Number Record 

- 

1 - 

2 - 

3 FA 2 

4 BF 3 

5 

6 - 

7 

8 EG 1 

9 - 
10 - 

At this point three keys have been entered. When we want to retrieve the 
record for which the key is "FA" we perform the same arithmetic operations 
on it and find that it is to be found in position 3 of the key file. We 
look there, verify that position three contains the desired key and also 
that the corresponding data record is in position 2 of the data file. 
Now suppose that we found that the key for logical record four was "HD". 
The ASCII values for "H" and "D" are 72 and 68. Their sum is 140 and the 
remainder of 140/11 is 8. Thus we post the key "IID" in position eight, or 
do we? When we try to post "HD" in position eight we discover that pos- 
ition eight is already occupied by FG. These two keys are called synonyms 
and are delt with in the following way. If we try to. post a key and can- 
not because its position in the key file is already occupied, we try the 
next position. If it is also occupied we try the next one. Eventually wo 



will find an unoccupied one and will post it there or the key file will 
be full. This is not very good. Generally in order to minimize the 
amount of searching which takes place when synonyms occur it is des- 
irable to have a substantial amount of empty space in the key file. 
This is usually not a serious defect since the size of the key file is 
usually small compared to the size of the data file. About half again 
as many possible keys in the key file as there are data records in the 
data file is generally adequate. 

Let's add two more keys to the key rue. The key "AC* yields a hashed 
value of 1 and the key "BA" a value cf 0. Now the key file looks like 
this: 

Entry , Key Data 
Number Record 

BA 6 

1 AC 5 
• 2 o 

3 FA 2 

4 BF 3 

5 ■ - 

6 - 

7 

8 EG 1 

9 HO 4 
10 - g 

Typically all we do is perform some arithmetic on the key and obtain 
from that a record number in a key -file. \<e use the remainder method to 
obtain that record from the key file <nd compare '.he stored value of the 
key with the one we are searching for. If they rratch we have found the 
record we want and can fetch it from the data file. If not we cm exam- 
ine the next key in the key file. I-.ither wo ».i"J find one that Matches 
or we will find eventually an empty record. In V-c l.nf^r c.-'-- -..c know 
that the desired key is not in the uey f •*!•;'. Ov: :•*' Vui a:.vL!nvw;cs oi 
this technique is that we can ;;or v --v r ;..-;... ' .. .. ,,-. ; ; ..-■ •,;»..; 
we want without clabc-val' ,•,-: v :• ... ).-. ;. l; ,. ...... u -f Jv. rcrl.-d key 



file adding records implied sorting the new rocor-Js into the file and then 
reconstructing the preliminary key table.. In the case of the randomized 
or hashed key file we obtain the record we need in typically one access to 
the key file and one to the data file. If there are many synonyms then we 
might have to read another block from the key file but that is unusual if 
the file is adequately large and the randomizing function is adequate. This 
latter is not always that easy to determine; however, one which has often 
been effective is to take the characters of the key from left to right; form 
a sum by multiplying the previous sum by three and adding the ASCII value 
of the next character to the sum. When all characters in the key have been 
summed then divide by a prime number slightly smaller than the maximum num- 
ber of keys in the key file. In BASIC-PLUS this would be as follows: A$ 
is the key and Nft is the key position. P% is the prime number just less 
than the maximum position in the key file. 

100 N% = 0% 

H% - ABS(N% * 3% + ASCII(KID(A$, 1%, \%))) FOR 1% = 1% TO LEN(AS) 

n% = n% - p% * [n% i ?.-:) 

More complex schemes are available and can be found in many books on file 
and data structures. 

A cautionary note is in order about the importance of not deleting entries 
in a hashed key file. The reason that keys must not be deleted is simply 
that they may be in a sequence of synonyms and replacing one by a series of 
blanks would cause a search to fail when in fact the desired key was simply 
farther down in the key file. The common solution to this (if deletions are 
to occur on line) is to reserve a byte in the key file to indicate that the 
referenced record is deleted and should not be accessed. Periodically the 
key file is then reconstructed from the data file and the keys corresponding 
to the deleted records are removed. 
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Hero follow two programs based on our previous rxan:ple, the 'inventory loc- 
ations file. The first one takes the inventory locations file and posts a 
key file based on the eight character key in position 6 through thirteen. 
The second retrieves records by usiry the key file to fine the record in 
the data record file. 



/ 



7-7/ 



Ipe fER CRTfiTF HASHED {.TV file 



THIS PPnr.n-riM rc-r.-iirr r. H.-.r.irf. ^.r. ........... 

KEV FILE RO/1 THE LOCATE. IMV FUE 



110 OPEN' "LOCATE. INV" FOR INPUT ft^ FUE jv 
GET It 12, RECORD J.X 
FIELD #1X, ?X ft 5 l* 
UX = CVTJXCLI ) ■ : 
POX = IX 

.'INPUT FILE IMI TIFiLIZftTIOri 

V<: IS THE NUMBER OF RECORDS IM THE FILE 
126 LlJ v = i 5 , : LI v° ; " ,S ! HE t ' L0CK CURftE «TLV IN THE INPUT BUFFER 
JX = IX :" 

r/. = jx + IX UNTIL ?X * <2X ~ JX> >= lux or jx = sv 
OPEN "LOCATE. KEV" FOR OUTPUT AS FILE 2X, CLUSTERS* rr 'v '• r 
•COMPUTE APPROPRIATE CLUSTERS I 2E FOR"" THE* * *" " 
KEV FILE AND OPEN IT 
138 PRINT 'PLEASE INFUT ft PRIME NUMBER SMALLER THAN '; LUX : 

field a z'/., icx as ft- 

LSET Ft = CVTX*<PX> 

i PX IS THE PRIME NUMBER. 

IT IS STORED IN THE FIRST LOGICAL RECORD OF THE 
l\ti FILE. 

140 sex = ix 

FOR JX = IX TO U1X : 

Jix = jx / six 

J2X = JX - <5ix * Jix> : 

JIX = JIX + IX : 

PUT S2X, RECORD SOX* UNLESS C .0X = JIX 

sex = jix 

-•&* IS THE RECORD IN THE OUTPUT PUFFER 
156 FIELD {f2X, iOX * J2X ftS Of, BX fiS V*, 2X As R* • 

LSET V* = SPflCEmX) 
LSET kt = cvtxj<ox> 
NEXT JX : 
PUT fc?X, RECORD SOX 

•FILL THE LEV F.JLE WITH CLAN}^ 

ieo for jy. = ix to ux 
RX = ix / by. 
rix = ix - ex * px 

RX = PX + IX 

GET I.1X, RECORD RX UNLESS RX = POX 

PCX ^ RX 

FIELD SIX, S4X * F.iX PS It, 5X AS Df, BX ft-" ^f 
,,_ . t IPETRIEVE EftCH RECORD FORM THE DATA TILE 
1 1 J X - X r 

JX --- ftBS<JX*2X + ftSCH<MID(f.*,KK,3X))> FOR LX-JX TO c : v . 
JX - ^ a - PX* < JX/F'X> 

! CALCULATE THE HASHED VALUE OF THE KEV 
180 JX = IX IF JX - OX 
J IX - JX / 5JX 
J2X = JX - SIX * Jix 
J1X - JIX + IX 

GET V.2V., RECORD JIX UNL E cr . Ji" -■ OV-- 
SOX * JIX 

1Qft Fir.r »4 DE ^! : : riI "^ F,0SIT,C,H IW '^V FILE FOR THIS LEV 

1»U Fit LI- If,-, l.j,; . J 2 v ftc. llf# £; v ftr y lt ^ f[ - f . 

if v* ^:> spfiCL'i ;cx> then 
Jx = jx + ix . 

JX = 3X If' JX > U1X 
GOTO ISO 

!SEE IF THE J TH POSITION JN THE LEV F " t 
«(, LSET V*. S, .' if •"•".««,> IF NOT TLV .,;,,,, 

LSFT- Rf " = CVTXKIX) 
• PUT »i^X, RECORD S»'iX 
NEXT IX 

lOL rOUi.'D HOLE FOR IT SO WIR7F IT OUT AND TRV THE 
UL.-. T D.Ml K RFC ORD 
210 CLOSE IX ?X 



PRINT 'ALL DONE' : END 



The pro gran to create the hashed key file starts at line 110 by opening 
the input file and determining the number of records in it. At line 120 
the size of the hashed key file is determined by multiplying the number" of 
records in the data file by 1 1/2. Then the cluster size for the key file 
is determined and the key file is opened for output. At line 130 a prime 
number which will be used in the hashing algorithm is obtained from the 
terminal. This could have been calculated by the program. The prime num- 
ber is stored in the first (i.e.: zeroth) logical record of the key file. 
This is so that the program(s) which access the key file will know which 
prime number to use. The FOR loop at line 140 and 150 serve to fill the 
key file with blanks. These initial values in the key file are necessary 
so that we can determine, when we post the records to the file, whether 
or not a particular key file position has been already used and v/hen we 
retrieve records to determine if a key is not in the file. The main loop 
in the program, extending from line 160 to line 200 actually posts the 
keys from the data file to the l:*y file. The coda in line 160 serves to 
sequentially redd each record in the data file. At line 170 each key is 
hashed and its position in the key file (J£) is determined. At line 180 
that record is read from the key file and (at 190} if it is blank the 
key and the logical record nmhor of the corresponding data record is writ- 
ten to the key file. If the position is not blank then a synonym has 

occurred and we try the next key position. In tin's code we test for ? poss- 
ible "wrap-around" condition in which we search a chain of synonyms off the 
end of the file. In this case we simply go to record number O'X. (Remem- 
ber that record zero contains the prime number.) Finally at 210 we- close 
the files anC terminate the pre gram. At this point we have a rata file, 
"LOCATE. I MV and Its corresponding key file, !, u'.{ \\\L. \..' V 



We are now 
ready to randomly access records in the data file using information con- 
tained, in the key file. The next program does that. It obtains a stock 
number from the terminal, locates the record in the data file by using the 
key file and then prints the location information on the terminal. 

At line 110 the data and key files are opened and the number of records in 
the data file as well as the prime number for the hash code computation are 
read from the fiies. In line 130 we obtain the stock number from the term- 
inal and check for a valid length and for the end of the job. If neither 
we calculate the hash code at line 140 and retrieve that key from the key 
file at line 150. Line 160 checks to see if there is a valid key at that 
location. If not then there is no record for the specified stock number 
and the terminal user is so informed. If the key is not blank then a check 
is made to see if the desired stock number is there or if it is a synonym. 
If the latter is present then the hashed index is incremented and we try 
the next key. When the key is found then the record specified by the last 
two characters of the key (1%) is retrieved from the data file. This oc- 
currs at line 190. A check is made to verify that the key in the key file 
and the key in the data record are, the same. If not then the files arc- 
inconsistent (i.e. one has been altered since the key file was created), 
and the key file must be recreated. At line 200 the requested information 
is printed on the terminal and the program asks for another stock number. 

It is worthwhile to compare this program with the one which did the same 
job by serially .searching the key file lo see the reduction in the number 
of disk accesses. Typically only two disk accesses are required to loc- 
ate any record in this file. 
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■ this p p o G i ; : n t ; r 1 n ,«;• s n l o c n t i o n in t \ i r i n v c n i np v 
poi-phons fiie r:s- nosim:.:, the j..rv supri ied r i-tim nit 

TERNINHL P.ND LOOKING IN THE HPEHED REV FILE FftR ] nr 
RECORD NUMBER OF THE OfiTft RE CHRP 
101! 

110 OPEN "LOCATE. INV" FOP: INPUT frS FILE IX 

OPEN "LOCP.TE. KEV" TOR: INPUT OS FILE 2X : 

FIELD OlJf, 5X OS Lf : 

FIELD #2X, 10?: OS p? ■ 

GET ft!?.', RECORD IX : ROX = IX ■ 

GET tf2X, RECORD 1?: • w/ m = i^ 

■OPEN BOTH FILES 

120 UX = CVT$tf<L$> : 

PX = uvisxa'S) 

!UX IS THE NUMBER OF RECORDS IN THE DhTH FIlE 

PX IS THE MHGIC PRIME NUMBER USED FOR HH'-iHlNG 1 »«E !"E<-' 

M . r T RC1 * F;f ' r ' -'0^ HRE THE RECORDS f:\WFlU7LV IN TfF fiifFrr" 

130 INPUT "STOCK NUMBER"; X* : ' hc " L ' Uf ^ L '- 

GOTO 210 IF Xf="DONE u OR X* = "STOP" 
IF LEN<X$> O fix THEN 

PRINT "NOT fi VOL ID STOCK NUMBFR" 

GOTO 120 

14e jjj B D v . !GET ">ESIRED STOCK NUMBER FfND CHECK LENGTH 

JX = RBS<JX*2X + fiSCIKMIPCX*, KJi, 1X>))F0R KX = i'/ r u c *- - 
JX = JX -. FY. * <JX/ FY) • 
JX = IX IF JX = OX • 

! CALCULATE THE HflSHED KES' V'RLUE 
150 J1X = JX/51X 

J2X = JX - 51 X * J1X 
J1X = J1X + IX 

GET tt2X, RECORD J IX UNLE c .s Jix = c,nv 
SOX = J1X --.-.. 

FIELD #2X, 10X * J2X OS D*. OX AS S'f. ?v f,c; c* 
!GET THE INDICATED KFV 
160 IF V* * SPACE* '.OX,* 1HEN 

. PRINT 'THERE IS NO RECORD CORRESPONDING If, c. 10 r r r; ,,v S: rc- « v 

GOTO 120 " ""■ 

176 IF VS <> X* THEN 

JX = JX + IX ; 

OY. = IX IF JX >1. 5 + UX • 

GOTO 150 

! GOT ft SVNOHVM FOR Y.t SO TRV THE NE^T cf,ri T ,r,». 

lee ix = cvt*x<r*> • .u..^.,,,, 

RX - IX /OX : 

P1X = IX •- RX * OX 

PX - RX + IX 

GET \)1Y., RFCORD RX UNLESS PCiv - F'-' 

ROX = RX : . ' 

.'GET TIIF PL OCR- Nil J CI! HAS THE DATA RCCnRR 

meld *:ix, ca:: * fix ns D5, ix ps f*, 2x hs f.' -••■ r^ c- 

0?' PS Sv, 51X PS N* " ' " 

IF V-y <> 5?- VHL'N 

PRINT "TILES PR!- I NCONS I SI ENT - REV FllF I.'il'M fu"; 

" RECONSTRUCTED " 
CLOSE IX, 2X ;S7 OP 

'0 VF.PV SERIOUS RROOLFH lirp-' 
iOU PRINT "f-OR STOCK NUIJPER -; Si; " THE L fif.RU Of" J - • « 
PRINT "FLOOR « ; fiSCII(F4>; 
"PIN ";CVU.Xa:*) ; 
"RPCK "; CVirX(R^) 
F'RIKT "NOME NCI. fll U r :F "; Nf 
GOTO j:<o 
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1 7 • VARIABLE L E NGTH RE C ORDS 

In all of the previous discussions it has been assumed that the individual 
records in the files were all of the same length. This is the case in most 
data processing applications. Usually comparable information is to be 
maintained pertaining to each item described by the data in the file. There 
do arise, however, cases in which it is desirable to have records of 
varying length. There are several ways to handle these. If there is no need 
for random access then the data can simply be processed using the serial 
input/output statements, INPUT and PRINT. In this case the records are 
delimited in the file by carriage-return line-feed characters and the rec- 
ord deblocking is handled by the BASIC-PLUS run time system. Generally 
the length of each record is stored in the file either explicitly as a 
character count or implicitly as a character which separates the records. 
When random access is needed then some kind of key file must be used. 
After the data file has been created it is necessary to create a key file. 
It would have within it the key, the block within which the record • 
starts and the character position within the block where the record 

starts. This file could be arranged in the same sequence as the data file, 
it could be sorted, or it could be randomized as described above. Whichever. 
procedure is used the technique uzed to randomly locate a variable length 
record in a file is to determine the block and starting address of the 

record from the key 'file and then to GET the block which contains the rec- 
ord. The length is determined from the record and a FIELD statement is 
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used to map the record. Then the data is available for processing unless 
the record spans a block in which case it is necessary to move the partial 
record into the string data area and GUT the next block. The remainder of 
the record is then concatenated s in the string data area, with the first 
part and the record can be processed. Rewriting a variable length record 
in situ is possible as long as the length of the record does not increase. 
If the length increases then more complicated methods are needed. One 
which is sometimes used in this case is to provide a field in the record 
to indicate where the record has been moved when it was rewritten and to 
provide some space at the end of the file for writing records which no 
longer fit -4n their original positions. Thus when a record is altered so 
that its length is changed it is rewritten at the end of the file. In its 
old location (the one pointed to by the key file) the record is changed so 
that a field contains the block number and character offset where the rec- 
ord is now located. V/hen the record is accessed it is first necessary- to 
determine whether the record has moved and if so to access it at its new 
location. Alternatively the record could be rewritten at the end of the 
file and the key file updated to point to the new location of the record. 
In this type of file processing it is necessary to provide programs which 
re-organize the files so as to reclaim the space lost when a record is 
rewritten in another location or when a record becomes shorter. Such a 
program would copy the data file, eliminating the unused records and would 
reconstruct the key file. 

Now let's look at an example of this type of file. We will have a file 
which contains information about inventory items. In particular it will 
contain records of purchases of items and the prices paid for the items. 
This is used to calculate an aged cost of inventory. Thus we can take the 
number of items on hand and assume that they represent the last purchases 
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from the number on hand. If there are more on hand then we take the next 
most recent receipt of those items and subtract it from the remainder on 
hand and so on until all items on hand have been assigned to the receipts. 
Then costs can be calculated by applying the cost data for each receipt to 
the number of items on hand from that receipt. When items are received 
three new fields are added to the record pertaining to that item. Period- 
ically the fields which no longer are applicable (i.e. have been exhaust- 
ed) are removed from the file. The record layout for the data file is as 
follows: 

RECORD DEFINITION TABLE 

Length Description 

2 Length of record in bytes 

2 Quantity on hand 

8 Stock number (key) 
2 Block for link record 
2 Offset for link 

9 Date of receipt 
2 Quantity received 
8 Unit cost 

(NOTE: 6.1-6.3 repeat as many times as needed) 

Table 6. Record Definition Table 
The first field in each record is the character count for the record, i.e. 
the number of characters in the record. The next field is the quantity of 
each item which is on hand. The third field is the key, an eight character 
alphanumeric stock number . This is what we will use to post to the key 
file and to access the record randomly . We will maintain the file in stock 
number sequence for ease in generating reports. The next two fields are 
used to indicate that the record has been moved in the course of being re- 
written. If CVT$%(B$) is 0% then the original record is the valid one and 
can be used . Otherwise 13$ contains the bloc'; number of the block where 



Field 


Type 


. Nairn 


Number 






1 


I 


14 


2 


I 


Q$ 


3 


S 


s$ 


4. 


I- 


B$ 


5. • 


I 


0$ 


6.1 


s 


0$ 


6.2 


I 


N$ 


6.3 


F2 


c$ 
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the record has moved and 0$ contains the offset into the block in charac- 
ters. Even after pursuing the record in tin's manner it is necessary to 
check [>$ and 0$ in the new record to sec if it has moved from there. The 
actual data cannot be used until the record for that stock number has been 
located with 0$ containing a zero. Next in the record we have the variable 
length elements J$, N$ and C$. These contain the date of the receipt in 
DD~Mmm-YY fnrmat. the nygntitv received and the unit cost of the i +■*■»•?*»• 
These three fields are repeated once for each active receipt. Thus a rec- 
ord which has one active receipt will consist of 35 characters; one which 
has two active receipts will consist of 54 characters and so on. Let's 
first consider a program to create a hashed key file. At the beginning of 
the data file we have so'me useful information. In the first logical rec- 
ord we have the total number of records in the file, the block and charac- 
ter offset of the next available position in the file (for use in rewrit- 
ing records which grow). Finally we have the actual length of the file in 
blocks. After we "have the key file established then we "can write a pro- 
gram which processes incoming receipts and updates the quantity on hand 
and adds a field which describes the new receipt. Finally we could print 
out the aged inventory report. We would maintain the data file in stock 
number sequence. The record format for the key file is eight characters 
of key, two of block number (in CVT%$ format) and two for the character 
offset into the block (also in CVT£$ format). There are thus 42 keys per 
block and each key is 12 characters long. Now let's look in some detail 
at the program which creates the hashed key file. It reads the file 
serially assembling each logical record and posts to the key file the pos- 
ition of each data record and the key. Note that logical records may bo 
allowed to span blocks. In some tostis (v'uvro lite records are short even 
if variable in length) this can he avoided by simply placing a signal 



logical record which would fit in a block. Then the program would simply 
got the next block and would not have to try to assemble a record from two 
blocks. This does waste some storage; space but can result in more efficient 
programs. 



18. FILE DESIG N 

These. notes are intended to provide some of the technical information about 
the file hand.ing facilities available in RSTS and some commonly used 
techniques. At this point you should have a reasonably complete under- 
standing of record I/O and disk files. What follows are a few comments on 
recommended design practices. This is hardly comprehensive. If you want a 
discussion of files in general then a textbook on data processing tech- 
niques is in order. When designing the files for a system it is wise to 
keep in mind the following points: 

1. The larger a file is (total size) the longer it takes 
to access a single record. This is somewhat true re- 
gardless of the type of access. If the records in a 
file are large- then consideration could be given to 
dividing the file into two (or more) files each with 
smaller records. This is particularly effective when 
only some of the information in a record is used on- 
line and the rest is used only for off-line pro- 
cessing. 

2. The "natural" sizes of logical records are powers of 
two characters less than or equal to 512. (i.e. 1, 
2, 4, 8, 16, 32, 64, 128, 255, or 512. chara :ters per 
logical record). If the logical records are equal 
to or slightly less than those lengths then blocks 
need not be spanned and little disk space need be 
wasted. Spanned records cause the program to be 
larger than otherwise and probably to execute more 
slowly. 



/9-?3 



